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TO THE READER 


Microcomputers continue to appear in more and more places. As they become smaller, 
they become more portable and, hence, useful in more places. The Radio Shack TRS- 
80 Pocket Computer is the ultimate in portability. It can be tucked away in your 
pocket and used wherever you go. Due to its portability, new uses will be continually 
discovered for this versatile tool. 

This book shows a wide variety of problems that are easily solved with the Pocket 
Computer. Although some problems may seem to be presented with tongue in cheek, 

_don’t let the light-hearted approach fool you. All demonstration programs are practi- 
cal in some way and, hopefully, will coax you to further applications. The problems 
cover a wide range of difficulty, but hints are provided that may be either used or ig- 
nored as your needs demand. 

We assume that you have some familiarity with computing and with BASIC lan- 
guage as used on other computers. If you have never encountered BASIC language, 
we suggest TRS-80 BASIC; Albrecht, Inman, and Zamora; John Wiley & Sons, Inc., 
1980. (It is also sold at Radio Shack stores under the title TRS-80 Level IT BASIC.) 

Our book has been organized to meet two main objectives: 


1. Teaching the Tool —- The TRS-80 Pocket Computer BASIC language 
and the use of the Pocket Computer’s keyboard dominate the early chap- 
ters in the book. Problems are introduced as demonstrations to facilitate 
this objective. 

2. Teaching Problem Solving Techniques — The techniques of problem solv- 
ing dominate the discussions in the later chapters. Here the computer is 
regarded as a precision tool that is used to solve problems. 


After covering the first five chapters, you will be able to make full use of the 
Pocket Computer. You will then be ready to solve the numerous problems that follow. 
Many different types of problems demonstrating a wide variety of applications are 
given throughout the book. Hints that are provided for the solutions to the problems 
are often quite extensive. You may choose not to use them, but they are there if you 
need them. 

Often, more than one solution is given for a problem. This is true to life. There 
are many ways to solve most problems, and we do not all solve our problems in the 
same way. 

The TRS-80 Pocket Computer is the tool used in this book. It is a small, but so- 
phisticated, tool. You will find that the more that you use it, the more useful it is to 
you. This book is designed to help you explore the Pocket Computer in depth so that 
you can use it successfully in solving problems that you encounter outside of this book. 


CHAPTER ONE 


Pocket View of the Pocket Computer 


The TRS-80 Pocket Computer is a unique mixture of a programmable calculator and 
a general-purpose computer. Although this book’s main purpose is to illustrate proce- 
dures and techniques for solving problems with the Pocket Computer, some space 
must be allotted to a description of this unique problem-solving tool. Like any artisan, 
the problem solver is dependent on the tools that are available, and the ability to make 
use of fine tools is dependent on one’s understanding of them. 

This chapter is, therefore, devoted to the introduction of the capabilities of the 
TRS-80 Pocket Computer. In this chapter you will: 


e become acquainted with the general characteristics of the Pocket 
Computer; 

e learn how characters appear on the display; 

e discover what kind of variables can be used in a program; 

¢ learna few BASIC commands and statements that are unique to the 
Pocket Computer or are used in unique ways; 

e discover four different operating modes; 

¢ learn how to use some keys in two different ways; 

e learn something about error codes and how to clear them; 

e discover PAUSE, a new form of the PRINT statement; 

e learn all about the NEW statement; 

e learn how to DEBUG programs; 

e learn how to check for the amount of unused memory; and 

e learn how to continue an interrupted program. 


The TRS-80 Pocket Computer can be used as a calculator, as described in the 
TRS-80 Pocket Computer Software Manual (Catalog Number 26-3501) that comes 
with the computer. There are many wondrous features to be exploited in the calculator 
mode — you can even find the solution to an algebraic equation. For example, if you 
have previously entered a value for the variables A, B, and C, the Pocket Computer is 
capable of solving the square root of the following expression. 


\/ (BA By 4% AL * cr 


SR Te eS een 
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Each of the symbols shown in the example is entered from the keyboard of the Pocket 
Computer. When you press the ENTER key, the result is displayed. 


Description of the Pocket Computer 


Imagine carrying around the power of a BASIC-speaking computer in your pocket. 
No longer are you tied to a computer room or office desk — or even an electric 
company. Just tuck the computer into your shirt pocket and take it with you wherever 
a problem exists. 


adie Shack 


Note: We didn’t say tuck the computer into your back 
pants pocket. The liquid crystal display (LCD) is made of 
glass. If you sit down with it in your back pocket, you 
may crunch the LCD. 


As long as the Liquid Crystal Display has been mentioned, we might as well talk 
about it first. If you’re used to a 64-character, 16-line display of the TRS-80 Model I 
or Model III (or something similar), the Pocket Computer’s 24-character, 1-line dis- 
play is going to take a little adjusting to. However, within a few minutes, you’ll find 
yourself writing shorter instructions. You may even find out that your programs be- 
come easier to read and understand because of the limit of the display size. 


10 PRINT ''SHORT INSTRU_ 


The cursor is shown at the 
24th position. What happens 
when the next character is typed? 
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Although only 24 characters are displayed, a BASIC line may contain a maxi- 
mum of 80 characters. Computer buffs would say, “The size of the input buffer is 80 
characters.” Let’s not get so technical. What they mean is that you can only input 80 
characters on one program line. The computer will hold all of them even though you 
can’t see them all at the same time on the display. If you continue to type the previous 
line, you will see the letters move to the left on the display and off the other end. 


10 PRINT ''SHORT INSTRUCT 


0 PRINT ''SHORT INSTRUCT Cursor indicates 
position of next 
character to be 
entered. 


PRINT ''SHORT INSTRUCTI_ 


PRINT ''SHORT INSTRUCTIOW 


RINT ''SHORT INSTRUCTION — 


INT ''SHORT INSTRUCTIONS 


There! The instruction’s 
complete, ready for you 


NT ''SHORT INSTRUCTIONS! '_ to press ENTER. 


Yes, the TRS-80 Pocket Computer has an ENTER key that works just like the 
ENTER key on other TRS-80 computers (or like the RETURN key on some other 
computers). The Pocket Computer ENTER key looks like this: 


ENTER 


The keys of the Pocket Computer are small and closely spaced, but they have a 
good feel and make clean contact. Numeric and arithmetic operation keys are in a sep- 
arate area on the right side of the keyboard. Your entries may not go as fast as if you 
were touch-typing, but you’ll soon get up to a respectable speed. 

The computer can hold a maximum of 1,424 program steps. There are 26 fixed 
memories (used for variables) and 178 flexible memories (shared between program 
steps and variables). You’ll learn all about the use of memory in Chapter 2. Calcula- 
tions are carried out to 10-digit accuracy. 
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The computer also has editing functions, which include shifting the cursor from 
left or right, inserting characters, deleting characters, and shifting up or down one line 
at a time. We’ll discuss these functions in Chapter 3. 

Calculating capabilities include four arithmetic operations, power calculations, 
trigonometric and inverse trigonometric functions, logarithms and exponential func- 
tions, angular conversions, square roots, sign functions, absolute values, and integer 
and logic functions. 

Power is supplied by mercury batteries. Memory content is not lost when the 
computer is turned off. Memory is protected (or saved) by the batteries when the rest 
of the computer is turned off. 

As interface is available for a cassette recorder to save programs and data on 
tape and to retrieve them at a later time. There is also a 16-column printer that Radio 
Shack sells, which includes an interface for both a recorder and the printer. 

The computer itself is in a small package, 6% inches long, 2% inches wide, and 
19/32 inches thick. Its weight is just over one-third of a pound. A carrying case, two 
keyboard templates (more about them later), and a User’s Manual are all included 
with the computer. 


TRS-80 Pocket Computer BASIC 


The BASIC language used by the Pocket Computer can recognize both numeric and 
string variables. A data memory is called a numeric variable when it stores a numeric 
value. Numeric variables use labels, or names, such as A, B, C, A(1), A(28), etc. A 
data memory is called a string variable when it contains a string of characters (limited 
to seven letters, numbers, or special symbols). String variables are distinguished by the 
$ symbol and are labeled as A$, B$, C$, A$(1), etc. 


CAUTION: There is a limit of 26 fixed memories used 
to hold variables. A (a numeric variable) and A$ (a string 
variable) both assign data to the same fixed memory. 


This must not be done at the same time. Only one value 
may be held in a given memory at a given time. 


The Pocket Computer’s memory is used in much the same way as that of a pro- 
grammable calculator. Here is how the fixed and flexible memories may be assigned if 
no arrays are used. The use of memory for arrays is discussed in Chapter 2. 
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Yj == 


N Free Ki 


1424 program steps, or 
178 data memories, or 
a combination of the two 


26 fixed memories 
for data only 


Any memory not used for program steps can be used for data memory, in addi- 
tion to the 26 fixed memories. This may be done when using arrays. The number of 
data memories beyond the 26 fixed memories therefore depends upon how many steps 
are used in the program. The free memory in the previous diagram is used for addi- 
tional program steps or data memories. In general, you may find out how much mem- 
ory is not being used by typing in the MEM command in any of the Pocket Computer’s 
operating modes. The display will then show how much data memory and how many 
program steps are unused. This is more thoroughly discussed in Chapter 2. 


Basic Functions, Statements, Commands, and Tape Control Statements 


Now let’s take a look at the functions, statements, and commands available in Pocket 
Computer BASIC. 


BASIC Functions |/5 ) * “ 
ABS Absolute value 
ACS Arc cos 
ASN Arcsin 
ATN Arc tan 
COS Cosine 
DEG Degree/minute/second to decimal 
DMS Decimal to degree/minute/second 
EXP Exponential function 
INT Integer 
LN Natural logarithm 
LOG Common logarithm 
SGN Sign (positive or negative) 
SIN Sine 
TAN Tangent 
V Square root 


ih Pi 
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\ 


BASIC Statements | >.> 


Contents displayed at start of definable program 
are read into the specified variable 
Beep sound is generated as many times as specified 
Data memory clear 
Degree is designated as angle measure 
Indicates the end of a program 
Beginning of FOR-NEXT loop 
Execution is shifted to specified line or label 
where a subroutine begins 
Specified line or label is executed 
Grad is designated as angle measure 
Based on the specified condition, a branch is either 
taken or not taken 
Allows data to be input 
Assigns a value to a variable 
Ends a FOR-NEXT loop. Increments the step 
Displays an output for approximately .85 seconds 
before going on 
Displays the specified contents and waits for 
ENTER key to be pressed 
RADIAN Radian is designated as angle measure 
REM Designates a non-executable statement 
RETURN Returns from subroutine 
STEP Increments a FOR-NEXT loop 
STOP Stops the execution of a program 
THEN Used only with IF statement as a jump instruction 
USING Format designation for display 


BASIC Commands (E ) 


Restart an interrupted program 
Used to debug a program line by line 
For listing a program in memory 
Display amount of unused memory 
Clear memory for a new program 
Execute a program 


Tape Control Statements 


CHAIN Program recorded on tape is read and executed 
CLOAD Transfer a program from tape to computer (- 
CLOAD? Check contents of program with those placed on tape 
CSAVE Record a program on tape 

INPUT # Transfer data from tape to memory of computer 
PRINT # Record data memory contents on tape 
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In writing this book, we assume that you have some knowledge of BASIC lan- 
guage. If you do not, we suggest you read TRS-80 BASIC; Albrecht, Inman, and 
Zamora; Wiley & Sons, Inc., 1980. As you look through the Pocket Computer’s 
BASIC commands and statements, you will recognize many of them. We will not 
dwell on those statements and commands that are common to other computers. How- 
ever, the Pocket Computer has some new ones, as well as some familiar ones that are 
used in different ways, which we will explain. 


Modes of Operation 


Before you are introduced to any more BASIC commands or statements, you should 
take a look at the four available operating modes of the Pocket Computer. 


1) Program mode (PRO) 

2) Run mode (RUN) 

3) Definable mode (DEF) 

4) Reserve program mode (RESERVE) 


The mode currently being used is displayed at the top of the display. 


DEF 


RUN 


RESERVE 


A mode key, MODE, changes the operating mode from left to right. The mode moves 
clockwise, as indicated in the following diagram, each time the MODE key is pressed. 


ax — DEF — RUN — PRO — RESERVE 
The operations carried on in each mode are briefly summarized as follows: 


1) PRO-The program mode is used to write, enter, and edit programs. 

2) RUN-—The run mode is used to execute programs or for direct 
calculations. 

3) . DEF — The definable mode is used to execute programs that have been 
defined by a label. 

4) RESERVE - The reserve program mode is used to write, enter, and edit 
programs or functions for reserved keys that will be frequently used. 
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The use of BASIC commands and statements depends upon the operating mode 
selected. In this chapter, you’ll find out how to use the PRO and RUN modes. In ac- 
tual usage, the operating modes interact with each other and should not be considered 
isolated from each other. Let’s investigate the PRO mode first. 


The Program Mode 


Access the program mode by pressing the MODE key a number of times (depending 
on the mode that you are presently in) until you see the PRO prompt on the top of the 
display. When you turn the Pocket Computer on, it is always in the mode in which it 
was last used. 
Example: 
Suppose you last used the RESERVE mode, and you want the PRO 
mode now. 


RESERVE 


Press the MODE key once, and you see: 


Press the MODE key again, and you see: 


RUN 


Press the MODE key once more, and you see: 


You are now in the mode normally used to enter programs into the computer’s 
memory. Lines of a program are numbered using integers ranging from 1 through 999. 
When a line is complete, it is entered into memory by pressing the ENTER key. One 
line may contain one or more statements. If more than one statement is used within a 
line, the statements must be separated by a colon. 

Example: 

One statement per line: 


19 INPUT A First line 
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Or two statements per line: 


19 INPUT A: B=A+1_ 


colon cursor 


You may have trouble discovering how to display the colon. Notice that some of 
the top two rows of keys have symbols above them. 


(ee AmAanmea 
RN YA A YY YY YY 


The colon is the symbol above the I key. 


oH 


To enter the colon, you must first press the SHIFT key and then the I key. This selects 
the colon for entry. A shift designator appears on the display when the shift key is de- 
pressed: It tells the user that the next key stroke will be shifted. 


Ist then next When the shift key is pressed, 
this appears on the display. 


If you should ever press the SHIFT key by mistake, press 


it a second time. This will cancel the affect of the first 
shift. 
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When the ENTER key has been pressed following the completion of a program 
line, the line is entered into memory, and the line is displayed once again with a colon 
following the line number. 


We will not always remind you to press the ENTER key. 


Just remember that it must be pressed at the end of each 
program line. 


19: INPUT A:B=A+1 


colon follows colon separating two 
line number statements on one line 


If you should ever forget whether you have pressed the ENTER key or not, look 
at the display. If the cursor shows at the end of the line and a colon does not show after 


the line number, 
19 INPUT A:B=A+1_ 


no colon cursor 


the ENTER key has not been pressed. 
If the cursor does not show and there is a colon following the line number, 


1Q:INPUT A:B=A+1 


colon no cursor 


the ENTER key has been pressed. 

Suppose that you have pressed the ENTER key after the first statement at line 
10. The computer waits for you to type in the next line of the program. It doesn’t give 
you any visual indication, but it is waiting for you to go on. Type in the next line. For 


example, type 


The comma is displayed by pressing 
SHIFT, then the letter O. 


Do not put a colon here, the computer will do it 
after you press the ENTER key. 
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If you put a colon of your own after the line number, the 
computer will add another. You’ll then get an error mes- 
sage when you run the program. 


To enter line 20, the sequence of keys pressed should be: 
20 SPC P RINT SPC A SHIFT O B ENTER 


The display would then show 


2%: PRINT A,B 


Now finish off the program by adding an END statement. Type 30 END, and 
(of course) press ENTER. 


The display: 


The END statement is optional If it is not there, the computer will stop after the last 
executable line. However, sometimes the END statement must be used to separate the 
end of the program from data or other information that might follow. 

We know that you are just itching to run the program that you just entered, so... 


The RUN Mode 


Suppose that you tried to run the program while you were in the PRO (Program) 
mode. If you did, this is what you probably saw: 


As you know, this is an error code. 


To clear an error code: press the red CL key. 
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You can’t RUN a program while you are in the PRO mode. Press the MODE 


key three times. 


DEF Second time 
RUN Third time 


Now, you can type RUN. 
If you remembered to press the ENTER key after typing RUN, you saw this: 


The question mark means ready for an INPUT. However, if you forgot to press 
the ENTER key after typing the word RUN, the computer is still waiting at this point. 


Press the enter key to see 
the question mark prompt. 


Try 25 for an input. Don’t forget to press the ENTER key following the input. This is 
what you will see: 


There’s A; There’s B, 
your input (B=A+1) 


When the Pocket Computer encounters a PRINT state- 
ment, it PRINTS the value specified and waits and waits 


and waits. It will not do anything else until you press the 
ENTER key. 


When you press the ENTER key, the next statement: 
39:END 
is executed, and the ready prompt shows at the beginning of an otherwise empty line. 


POCKET VIEW OF THE POCKET COMPUTER 


The ready prompt indicates that the Pocket Computer is ready and waiting for the op- 
erator to input a command for it to do something. 


the ready prompt 


Most computers go on after a PRINT statement, but the Pocket Computer can 
display only one line at a time. If it didn’t stop and another PRINT statement were ex- 
ecuted, the first results would disappear from the display before you had a chance to 
read them. 

Let’s change the program to print each variable on a separate line. 


19 INPUT A: B=A+1 


2Q PRINT A ba det Ss ae change these lines 
39 PRINT B 


4g END 


Before you enter the changes, go to the PRO mode. Since you were last in the 
RUN mode, you should only have to press the MODE key once. Then enter the new 
lines (20, 30, and 40) and LIST the new program to make sure that it is correct. 


The LIST command works only in the PRO mode. If you 
try it in any other mode, you’ll get an error code. 


When you are in the PRO mode, you can successfully type LIST, and press the 


ENTER key. 


Press the down arrow key [=] once. This scrolls the program down to the next 


line. 
29:PRINT A 


Press [F] again. 
( 39:PRINT B ) 
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Press [z] again. 


49:END 


If you press [3] again, nothing else will happen. That’s the end of the program. 

Now, press the MODE key until the computer is in the RUN mode (three times 
should do it). Type RUN and press ENTER. The program begins execution and the 
input prompt appears. 


Type 25 (your input). 


nN 
wn 


The value for A is 
printed by line 20. 


Press the ENTER key to go on. 


Nb 
fon) 


The value for B is 
printed by line 30. 


Press the ENTER key to END the program. 


| 


The ready prompt appears. 


Now you know how the PRINT statement works. You might not want the com- 
puter to stop after it has printed something. Wouldn’t it be nice if it would just flash 
the answer on the display for a brief time and go right on to the next statement? Well, 
go back to the PRO mode once more and make these changes to your last program. 


29 PAUSE A 
39 PAUSE B 
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Once you have entered the changes, go back to the RUN mode. Run the pro- 
gram. After you’ve typed in your input (25) and pressed ENTER, watch the right end 
of the display closely. 


25 ON, then OFF 


26 ON, then OFF 


The program’s over. 


Did you see the computer display the 25 for almost a second, blink off, display 
the 26 for about a second, blink off, and then display the prompt (>)? 


PAUSE works the same way as PRINT, except execu- 


tion of the program is halted for 0.85 seconds. The com- 
puter then continues. 


So, if your eyes are quick enough, you can flash results on the display without stopping 
the computer. It merely makes a PAUSE before going on to the next statement. 

What would happen if you said PAUSE in line 20 and PRINT in line 30? Try it by 
changing these lines: 


2@ PAUSE A 
39 PRINT B 


Once you’ve discovered what happens, write a program that will count from 1 
through 10. Each time, have the computer flash the counting number, then display 
2TT times the counting number, then stop to wait for you to press the ENTER key be- 
fore going on. 


Your Program 
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First type NEW. 


In the DEF, RUN, OR PRO modes, NEW clears all pro- 
gram and data memories, but not reserve memories. In 
the RESERVE mode, it clears all reserve memories, but 
not program and data memories. 


Then enter your program. Go to the RUN mode to execute it. This is what the 


display shows: 
RUN 
Press ENTER. 
Press ENTER. 
Press ENTER. 
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Press ENTER. 


Here’s how we wrote our program: 


19 FOR A=1 TO 19 
29 B=2*Thka 

39 PAUSE A 

49 PRINT B 

5Q NEXT A 

69 END 


Your program may look entirely different; but if it does the job, it is OK. No two 
programmers do the same thing in the same way. If the program works, that’s all 
that’s necessary. 

Notice line 20 in our program. 


The Pocket Computer has a built-in value of 10-digit ac- 
curacy. The! key is in the top row of keys and must be 


“shifted.” 


N 
To enter, press SHIFT and then [2]. 


Other than the key, this program looks just like a BASIC program on most 
other computers. Notice the accuracy displayed in the run. 


The TRS-80 Pocket Computer displays numbers to 10 
digits. 


Of course, you knew that you were finding the circumference of a circle (B) with 
the given radius (A) in the last program. 


C=2Tr 
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Most BASIC languages require the multiplication symbol (*) to be entered be- 
tween each of the values being multiplied. Do you think the previous program would 
work if you changed line 20 to: 


20 B=2TIA 


without the multiplication operator sign? Change the line and try it. 


The Pocket Computer will do this as long as there’s no 
chance for misunderstanding. If you want to multiply two 


constants, such as 3 times 5, 35 will not work — it has to 
be 3*5; but 2A will work as well as 2*A since one value is 
a constant and one a variable. 


Let’s change the program slightly again. This time make both PRINT state- 
ments PAUSE. Also extend the upper limit of the FOR-NEXT loop to 100. 


19 FOR A=1 TO 199 
29 B=2* Thea 

3 PAUSE A 

49 PAUSE B 

5Q@ NEXT A 

6% END: 


Suppose that you want to see the program execute each step. Maybe you’re not 
sure it is operating as it should. 


The Pocket Computer has a DEBUG command that al- 
lows you to watch the program execute line by line. The 


DEBUG command is only effective in the DEF and 
RUN modes. 


1) Enter the program in the PRO mode. 
2) Access the RUN mode. 
3) Now DEBUG using the following steps: 


You 


type DEBUG 


press [+ | 
press [ =] 


press [+] 


press [+ | 
press [| 
press [+] 


press [= | 
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Display 


2 


N 
a=) 


my 
=a 
N 


Ww 
a) 


on 
a] 


nN 
2 


Ww 
2 


etc. 


6.283185307 


12.56637961 


Stops 


Stops 


Flashes 


Stops 


Flashes 


Stops 


Stops 


Stops 


Flashes 


Stops 


Flashes 


Stops 
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If the program had not been operating properly, you could have seen where the 
error was occurring. The line number is displayed for each step. The * key is pressed 
to go on to a new step in the program. Notice how the FOR-NEXT loop worked as the 
program went back to line 10 after line 50 had been executed. 

Do you wonder how much memory the program has used? You can find out. 
Remember, the Pocket Computer has memory for 1,424 program steps or data memo- 
ries. If you are familiar with Radio Shack’s Level IJ BASIC, you have probably used 
the MEM command. You can also use it with the Pocket Computer. 


The MEM command functions in all modes. It will dis- 


play the number of program steps and flexible memories 
not being used. 


So, regardless of the mode that you are in, type MEM and press the ENTER 


1386STEPS 173MEMORIES 


There were 1,424 program steps or 178 data memories available before the pro- 
gram was entered. The display now shows that there are 1,386 program steps or 173 
data memories unused. Therefore, you have used 38 program steps or 5 flexible memo- 
ries, whichever way you want to look at it. You have also used two fixed memories (A 
and B). There is lots of room for much longer programs. 

Let’s get back to the last program. RUN the program this time instead of using 
DEBUG. Suppose the phone should ring or the coffee pot starts to boil over when you 
have it running. You can press the ON key ON . Press it only once, and the program 
will “break.” A message appears on the display to let you know where the program se- 
quence was broken, such as: 


BREAK AT 29 


The program was stopped at line 20. 


key. 


Now you can go answer the phone or turn off the coffee pot. When you come back: 


a) If you’ve been gone less than seven minutes, type CONT, and the pro- 
gram will continue from the point where the break occurred. 

b) If you’ve been gone longer than seven minutes, the computer automati- 
cally turns off to save its batteries. When you press ON, the data memo- 
ries are cleared, but the program is still there. You’ll have to RUN the 
program from the beginning again, however. 
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Summing Up Chapter One 


You now have some first-hand knowledge of the TRS-80 Pocket Computer. The fol- 


lowing table shows commands and statements used in this chapter. 


COMMANDS 


Remarks 


Accepted 
Abbreviation 


Restarts a program 
from the point at 
which interrupted. 


Starts execution of 
a program line by 
line. Execute each 
line by pressing. /¥ | 


Lists programs line 
by line. Press 
to see next line. 

to see previous 
line. 


Shows remaining 
unused memory. 


Clears program and 
data memories. 


Clears reserve 
memories. 


RUN R. Begins execution 


of a program. 


Used in 
These Modes 


DEF or 
RUN 


DEF or 
RUN 


PRO 


Any mode 


DEF, RUN, 
or PRO 


RESERVE 


DEF or 
RUN 


Note: Although it has not been mentioned, some commands and statements may be 
abbreviated when entered. They will be displayed here in their unabbreviated form, 


but accepted abbreviations, shown above, can be used. 
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STATEMENTS 


Statement Accepted Remarks 
Introduced Abbreviation 


Indicates end of program. 


Starts a FOR-NEXT loop. 


Stops a program for data input. 
? is displayed. 


End of FOR-NEXT loop. 
Increments the loop variable. 


Specified value is displayed for 
0.85 seconds. 


Specified value is displayed. 
Program execution is halted until 
the ENTER key is pressed. 


Note: Periods in abbreviations must be included. 
Many facts were presented to you in this chapter. Here is a list of the most im- 
portant ones. 


e Twenty-four characters may be displayed at one time. 
e Numeric variables are displayed with ten digits. 
¢ Memory consists of: 
26 fixed memories, and 
178 flexible memories, or 
1,424 program steps. 
e Numeric or string variables (up to seven characters) may be used. 
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e BASIC statements and commands are similar to BASICs of larger systems. 
e Four modes of operation offer flexible use: 
(1) PROgram mode — for entering normal programs. 
(2) RUN mode — for executing programs. 
(3) DEF mode — to execute programs defined by a label. 
(4) RESERVE mode — for writing functions for reserved keys. 
e Aspecial key, MODE is used to change the operation mode. 
¢ More than one statement may be placed on one program line. (OGG 73%) 
e Some keys have two functions. The SHIFT key is used to access the second func- 
tion. 
e The ENTER key must be pressed at the end of each program line. 
e Error codes are given for incorrect operations. 
e Theclear key CL clears an error message from the display. 
e The Pocket Computer stops operation each time a PRINT statement is executed. 
e Programs may be LISTed, one line at a time in the PRO mode. 
e A PAUSE statement works like a PRINT statement, except the program pauses 
for about a second to display the result and then goes on. 


e The NEW command clears all program and data memories when used in the DEF, 


RUN, or PRO mode. It clears all reserve memories when used in the RESERVE 
mode. 

¢ A built-in 7 key is available with 10-digit accuracy. 

e A DEBUG command can be used in the DEF and RUN modes to display the exe- 
cution of a program, one line at a time. 

e The MEM command can be used in any mode to display the amount of unused 
memory. 


Chapter One Self-Test 


Ihe 


You used a program that calculated the circumference of a circle in this chapter. 
Expand that program so that it will also compute the area of the circle. 

HINT: A = 
Modify your answer to Problem | so that the results will be displayed as in this 
example: 


CIRCUMF. = 18.84955592 Print and stop 
AREA = 28.27433388 Print and stop 


HINT: Strings can be printed by enclosing characters to be printed in quotation 
marks (PRINT ''RADIUS =”). 

Now change the program so that you can also input the height and radius of a cyl- 

inder. Compute and print the total surface area of the cylinder along with pre- 

vious information. 
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HINT: 


S$ ~+—— Top of cylinder 
—— Height ~<— Side of cylinder 
(flattened out) 


Circumference of 
top and bottom 


S$ + Bottom of cylinder 


Answers To Chapter One Self-Test 


These solutions are merely one way to solve the problem. Yours may differ. As long as 
yours produce the desired results, they may be considered correct. 


1. From the program on page 17. 
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8g 


FOR R =.1 TO 19 
B = 2*fl *R 

PAUSE R 

PRINT B 

A =Tl+R*R <———________________ nr A= *R 2 
PRINT A 

NEXT R “8 

END <——<$_$$$ ________——' Optional 


2. We modified lines 30, 40, and 60. 


39 
49 
6p 


PAUSE ''RADIUS ='';R 
PRINT ''CIRCUMF. ='';B 
PRINT ''AREA ='';A 


3. Added lines have been inserted as needed. 


FOR N = 1 T0 19 <————__——. This could be any range. 
INPUT ''R=?'';R 


INPUT ''H=?'';H 
B = 2*T*R 


PAUSE ''RADIUS ='';R 
PRINT ''CIRCUMF. ='';B 

A =TF*R*R 

PRINT ''AREA ='';A 

S = (2*A)+(B*H) 

PRINT ''SURF. AREA ='';S 
NEXT N 

END 


WW 
Len} 


CHAPTER TWO 


Applications, Memory Use, and 
Definable Mode 


There have been many questions asked about the personal use of computers. One of 
the most frequently posed questions is, ““What do you do with a computer after you get 
tired of playing computer games?” Well, computers have many practical functions 
too, ranging from keeping a shopping list for your family to running an inventory pro- 
gram for a business. 

Computers serve three functions: recording information, processing information, 
and transmitting information. The TRS-80 Pocket Computer adds new dimensions to 
these functions. In the past, the size of computers confined their use to a limited num- 
ber of places. A source of power was needed, and even the desk-top computer was 
heavy and cumbersome to carry around. But because the TRS-80 is portable, it is pos- 
sible to record information at any place and at any time, and to have any previously 
recorded information transmitted to you by the computer for immediate use. Like 
larger computers, the Pocket Computer has a memory that is nonvolatile, which 
means it can store information permanently. (Information from the Pocket Computer 
can also be stored a second way, on cassettes, which we will discuss in a later chapter.) 
The portability of the Pocket Computer also enables you to process information imme- 
diately, for instant review. 

In this chapter you will: 

e learn about possible uses of the Pocket Computer; 

e learn more about how memory is used; 

e learn how to use the Pocket Computer in the DEFinable mode; and 

° apply some problem solving techniques to practical applications. 
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Application Examples 


Let your imagination run loose as you think of ways to use your Pocket Computer. 
We’ll plant a few seeds to start your “garden of ideas.” 


Up-to-the-second stock market analysis Time payment schedules 
Horse-race handicapping | Compound interest 

Shopping list Amortization 

Shopping price | Annuities 

Letter reader and writer New games 

Short story reader 100 most misspelled words 
Speed-reading machine Poker game 

Cue for speeches _- Dice games 

Memo pad ESP games 

Record job time for accounts Record people contacted during 
Record medical data, such as ot 

temperature throughout day, Record reference tables 
foods eaten, heart rate, blood 

pressure, and activity level Record class activity for later 


dump to cassette tape (or printer) 
Compute food allotment given 
present weight, to aid in diet Arithmetic practice 
for weight gain or loss 


There are many others which will apply to your own needs. 


Pocket Computer Memory 


One of the things that any self-respecting computer can do is to store information. The 
TRS-80 Pocket Computer stores an amazing amount of information for its tiny size. 
And when information is stored, it doesn’t go away when the computer is turned off. 
The information you store stays in memory until the day that you clear or replace it. 
To use this memory power effectively, you will need to understand how data and pro- 
gram steps compete for memory space. 


- When data and program meet in the middle, the memory is full. 


\ 
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It is useful to think of the TRS-80 memory as a long sequence of 1,632 boxes. 
Each box contains 8 bits of information. In more technical language, each box will 
hold an 8-bit byte. 


bh ee 


& oe 


2 VT, 


Program steps are stored in the memory boxes starting at one end, while data items 


(consisting of numbers and words) are stored starting at the other end. 


<————————-_--—-—. 


o> 
Data from Program from 
this end this end 


More space is needed to store an item of data than to store a program step. One » 
memory, consisting of 8 boxes, is required to store one data item. 


One memory = 5 BYTE 
(8 boxes) 


A single box is required to store one program step. = ¢ GY 7G 


Se SS 2 TEE] 
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1424 BYTES OF 
FLEXIBLE MEMORY FOR 
DATA OR PROGRAM 


208 BYTES 

OF FIXED 
DATA 5 

MEMORY + | FS,ASi6) 


v E$,ALIAS 


IN 
26 DATA 
MEMORIES D,ALIAS 
A(4) 
e 
e 
e 
WITH C$,ALIAS 
NO AS(3) 
PROGRAM 
STEPS 
ALLOWED 


MEMORY 2 
STORAGE 
FOR 1 DATA ee SL 


BS,A(2) 
ITEM (WORD A(2), 
OR NUMBER) AS(2) 


MEMORY 1 
ALIAS A,AS, 
A(1),A$(1) 


HNWAOAMDNWDO 


DATA MEMORIES 
Memory Map 
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The first 26 data memories (208 boxes) are used only for data storage and are 
not available for program storage. This leaves 1,424 of the original 1,632 boxes for 
storage of other data and program steps. The longest possible program could therefore 
consist of 1,424 program steps. Since each data item occupies 8 boxes, the 1,424 boxes 
could be used to store 178 data items (of course there would then be no room for pro- 
gram steps). 

Data memories have names. In fact, each data memory has many names. The 
name, or names, you use will depend on whether the data item is a number or a word, 
and on your particular preference. 

Example: 

If the data item in memory number | is a 
number, then the following names can refer 

to it: 

A, or A(l1) 


If the data item in memory number 1 is a 
string of symbols, then the following names 


can refer to it: 
A$, or A&(1) 


String variables have a $ sign, number variables do not. 


The data in memory number 2 is referred to 
by the names: 
B, or A(2), or BS, or A§(2) 


The data in memory 3 is referred to by 


the names: 
C-sor- -A() 213, -or- A$) 


Other memories follow the same pattern. 


This is a very versatile naming system. It allows you to use the alphabetic order 
A, B,C, ... Z for number variables; or A$, B$, C$, ... Z$ for string variables. If the 
occasion demands, you can use subscripted variables such as A(1), A(2), A(3),... 
A(204), or A$(1), A$(2), AS(3), .. . A$(204). 

To see how memory is filled as you enter a program in the PRO mode, you can 
look at the unused memory size by the MEM command. Go through the following pro- 
gram on your Pocket Computer as we check MEM after each entry. Do the same on 
your computer. 

The program that we’ll use will compute the volume of a cylinder, given the 
height and radius of the cylinder. 


Equation: v =s1’h where r= radius 
h = height 
v = volume 
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Program: 
19 INPUT ''RADIUS='';R 
29 INPUT ''HEIGHT='';H 
39 V=7T*RA2*H 
49 PRINT ''VOLUME='';V 
58 GOTO 19 


Notice that INPUT statements can contain strings. One 


data memory can hold a maximum of seven characters. 


Also notice line 30, the volume equation. 


The TRS-80 Pocket Computer has a key for raising a 
value to a power. The Wkey is in the top row of keys and 
must be “shifted.” 


N 


Press SHIFT, then 


Before you enter any of the program, access the PROgram mode and type 
NEW. Then type MEM. 


are clear. 
Type this much. 
Press ENTER. 
Type MEM. 
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You have used four program steps: 
1 4 3 4 
Aa 
10:INPUT ENTER 


Four program steps equal a part of one memory. Therefore, there are 1,420 steps left, 
or 177 memories. 


Type: 
Press ENTER. 
Type MEM. 


Now you’ve used five program steps — that’s still only one memory. 


Type: 


19 INPUT ''R 


Press ENTER. 


1Q:INPUT ''R 


Type MEM. 


1418STEPS 177MEMORIES 
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Now six steps have been used — still one memory. This is how it’s stored so far: 


ae 


10:INPUT “R ENTER 


Let’s go on and finish the first line. 
Type: 


1Q INPUT ''RADIUS='';R 


Press ENTER. 


19:INPUT ''RADIUS='';R 


This is the result from the first line of the program: 


tage 


10:INPUT “RADIUS=”;R ENTER 


1424 original memories 

— 15 _ steps used 

1409 _ unused program steps 

(or 176 complete memories left since 
the 15 steps only take 2 memories 
at 8 steps per memory) 
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Now enter the second line. 


Type: 
Press ENTER. 
Type MEM. 


Stored as 20: INPUT“HEIGHT=”";H ENTER. 
15 more steps 
15 + 15 = 30 steps so far 


1424 — 30 = 1394 steps unused 


30 + 8 = 3 full memories and 
a part of the fourth; therefore 
174 complete memories 
unused 
Finish entering the program, then check the amount of memories unused. 


—1361 left 


63 program steps 
used 


63 + 8 =7 full memories 
used and a part of the 
eighth memory; therefore 
170 full memories 
unused 
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26 DATA MEMPRTES 
(FExXED memory J 


hail 
h.2 
Hie 
Rie 
Vite 
BoRG 
sé PY#7 


Fixed Memories Used 


Memory Use for the 63 Program Steps 
in the Cylinder Volume Program 


You can see that each BASIC statement such as INPUT, PRINT, and GOTO 
occupies only one program step. Each time the ENTER key is pressed at the end of a 
line, a program step is used. A line number occupies one program step, and the colon 
following the line number occupies a separate step. Otherwise, each keyboard charac- 
ter requires its own program step whether it is a letter, number, or arithmetic opera- 


tion. Variables are stored in fixed memory. Multiple statements in a line save een 
but sacrifice the clarity of your program. 


Now that you have a better understanding of memory use, let’s move on to an- 
other Pocket Computer operating mode. 
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The DEFinable Mode 


The DEF mode is used in place of the RUN mode when your programs have been 
defined by a label. It is an execution mode, like the RUN mode. 
The lower two rows of gray keys are definable keys. 


ANOAWHOWwWAHOE 


Nie These are definable vA But not the 


ENTER key 


each program with one of the definable keys. Then you can execute any one of the pro- 
grams by pressing the SHIFT key, followed by the defined key that is used to label the 
program. It is much easier to press the appropriate defined key than to try to remem- 
ber the beginning line number of each program and to type in RUN, line number, 
ENTER. (see P 2%5) 

Recalling equations that you used in earlier programs and using two new ones, 
let’s set up three programs to solve them. 

C=Tf R? Area of circle (top or bottom of 
a cylinder) 


A=2?RH Surface area of side of cylinder 
@ Top of cylinder 
H | | Side of cylinder (flattened out) 
271R 
& Bottom of cylinder 
V = [TR*H 


Volume of cylinder 


>S=277R?+277RH Total surface area of 
cylinder 


or 


S= 27R(R+H) 
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We will use three separate programs to compute and print the surface area and 
volume of a cylinder given the radius and height. 


First program — input the radius and height 
Second program — compute and print the surface area 
Third program — compute and print the volume 


The Cylinder Program 
First program 19 ''='"': INPUT ''RADIUS='"';R 
with “=” label 29 INPUT ''HEIGHT='';H 
39 END 


inputs R and H 
49 ''S'':a=2+*]T eR 


Second program 59 BORTH 

a ececiss 69 S=A*B 
with S as label 79 PRINT! 'R='';R;''H=!'"'-H 
computes surface 89 PRINT ''SURFACE AREA='';S 
area 9G8END 
Third program 199 'vit:v= TKR 2*H 
with “V” as label 119 PRINT! R=!" ;R; 1 H="' 5H 

128 PRINT ''VOLUME='';Vv 

computes volume 139 END 


In the first program, the radius and height are input. The program is executed in 
the DEF mode and establishes the values for the radius and height of the cylinder. 

Press the MODE key until the DEF mode is found. 

Press SHIFT, = To access the first program labeled “=” 


RADIUS= 


Press 2, ENTER 


PRESS 3, ENTER 


~<+— The program has 
ended 


Now, you may select either program “S” if you want the surface area of the cyl- 
inder or program “V” if you want the volume of the cylinder. 
a) Toselect the surface area program: 
Press SHIFT, S to access the second program labeled “S.” 


R=2.H=3. Reminding you of 
the initial values 
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Press ENTER. 
( SURFACE AREA=62.83185305 ) 
Press ENTER. 


b) Toselect the volume program: 
Press SHIFT, V To access the third program labeled “V.” 


Press ENTER. 
Press ENTER. 


To access the first program again, so you can input new values for r and h, press 
SHIFT, [=], then input new values as requested. Use programs “=”, “S”, and “V” to 
complete the exercises in Problem 1. (Answers at end of chapter.) 
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The TRS-80 has a statement called AREAD, which will automatically store a 
numeric value or character in a specified variable that has been displayed before the 
start of program execution. In our last example, you used a program labeled “=” 
which allowed you to input the values for radius and ee Let’ s replace program 
“=” with AREAD statements to see how they work. (5 F. aT 

In the PRO mode, replace the first three lines of ite previous program. Leave 
programs “S” and ““V” just as they are. 

Replace lines 10, 20, and 30 only. 


18 ''A'':AREAD R 
29 ''B'':AREAD H 
39 END 


Now go to the DEF mode and press in succession: 
SHE A Enters 5 for R 
then 6, SHIFT, B <—————— Enters 6 for H 
then SHIFT,S <——————— Runs program “‘S” 


Press ENTER. 
SURFACE AREA=345.5751919 


Press SHIFT, V.<§. << Runs program “Vv” 


VOLUME=47 1.238898 


The AREAD statement allows for a neat and quick way to enter variables. 
Suppose you want to leave the radius at 5 and explore various values for the 
height. Just continue as before — but ignore the AREAD R statement, which is la- 
beled A. 
In the DEF mode: 
Press in succession: 


Press ENTER. 


7, SHIFT, B. <—_—_ Changes H to 7 
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Press SHIFT, S. 


R=5 .H=7.. See H was changed 


Press ENTER. 


SURFACE AREA=376.9911185 


Press SHIFT, V. 


R=5.H=7. 


Press ENTER. 


VOLUME=549.7787144 


Press 10, SHIFT, B. <—___— Changes H to 10 
Press SHIFT, S. 


R=5.H=10. 


Press ENTER. 


SURFACE AREA=471.2388981 


Press SHIFT, V. 


R=5'/H='10'. 


Press ENTER. 


VOLUME=785. 3981634 
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Continue on in this manner until you have used as many different heights as you 
desire. You could go through a similar procedure to change only the radius. 


Note that when using a program with an AREAD state- 
ment, a value must be displayed before the labeled line 


with the AREAD statement,is executed. 


15, SHIFT, A in example 


Using Arrays 


A more versatile program can be written by using an array to hold a series of results 
produced by a program such as the previous one. 
Problem to be solved: 


Compute the surface area of ten cylinders having a given 
radius but varying heights. Input the radius, beginning 


height, and the amount (increment) that the height is to 
change each time. Store the results in an array. After all 
areas have been computed, print them. 


In planning a solution to such a problem, state the necessary actions in general 
statements. 


1) Recording: Input initial values 
2) Processing: Make necessary computations 
3) Transmitting: Print results 


You must also plan how you are going to use memory space so that no conflict 
arises between variables or between space for variables and space for program steps. 


1) You need ten memories for the array that will hold the computed surface 
areas. You might use A(1) through A(10). 

2) The FOR-NEXT loop variable to be used in computing and storing the 
surface areas will occupy one memory. N might be used. 

3) You will need three variables for the radius, original height, and the in- 
crement to the height. Use A(20), A(19), and A(18). A(17) is used for 
the original height also since you will be changing A(19) as the different 
surface areas are computed. 

4) The equation used to solve the surface area is long and is therefore bro- 
ken into two parts: 


Z=R+H 
Y=2*7*R 
Surface area = Z * Y 3 \ 


Zand Y take two more memories. AO: bao 
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In all, it looks like you will use 17 memories. These will all fit into the fixed 
memory space. Therefore, they will not interfere with the memory used for program 
steps. 


Memory Variable Remarks 
Number Stored 


The first ten hold 
the computed areas 


A(1) 


A(2) 


A(3) 


A(4) 
A(5) 


A(6) 


A(7) 


A(8) 


A(9) 


A(10) 


— 


— — 
ie) — 


3 


~<— FOR-NEXT loop variable 


— —\ _ 
I Nn tL 


A(17) + Original height 


A(18) —<—— Height increment 


— 


9 A(19) + Changing height 


0 A(20) ~<— Radius 


f 
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rYEep 
Memory 
Number 


Variable Remarks 


+ 2*7!* Radius 


<~—— Radius + height 


Fixed Memories Used for Surface Area Program 


It is a good idea for you to make a table of memories used for your programs. 


Then when you wi 
there are errors in 


sh, you can examine the memories to see what values are there; if 
a program, this is a great aid to find where they may be occurring. 


We will cover error codes, editing, and debugging programs in Chapter 3. 

To conform with the way the program has been planned, it would be convenient 
for you to separate the program into three parts and label each part. The DEF mode 
would then be used to execute the program. Here is a three-part program for surface 


area. 


1p 
29 
39 
4p 
5g 


199 
119 
129 
139 
149 
159 
168 
179 


299 
219 
229 
239 
249 
259 


''=!':INPUT ''RADIUS='';A(29) 
INPUT ''FIRST HEIGHT='';A(19) 
INPUT ''INC FOR H='';A(18) 
A(17)=A(19) 
END 

''S'';FOR N=1 TO 19 

Z=A(29)+A(19) <————________________. radius + height 
y=2« TT*A( 29) 277R 
A(N)=2e% —————————— ee 27R(R +) 
A(19)=A(19)+A(18) <—__________———._ new height 
NEXT N 

BEEP (3) 

END 

''L'':A(19)=A(17) ——______________._ set height back to 
FOR N=1 TO 19 original value 
PRINT A(19),A(N) 

A(19)=A(19)+A(18) <——_____________. next height 
NEXT N 


END 
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Notice that each part of the program has a separate label. Enter each part in the 
PRO mode. Execution will be performed in the DEF mode. Look over the program 
carefully and see if you notice anything new. How about BEEP (3) —a surprise that 
we won’t give away yet. You’ll probably figure out what BEEP will do, but no matter. 
We still won’t tell you yet. 

All right, you’re now ready to RUN. Get into the DEF mode and let’s go. 


You Do Computer Remarks 
This Display 
= DEF When in DEF mode 


oars 
3, ENTER End of “=” program 


SHIFT,S RUN Computations being 
made 


Wait until ———————————— BE FP! BEEP! BEEP! 


All calculations are finished. 

The 3 BEEPS were caused by 

16% BEEP (3). It gives you an 
audible indication that the program 
has finished its chore. 
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Now let’s search for the results in program “L”’. 


SHIFT, L 18. 471.2388981 Height followed by 
surface area 


ENTER 13. 565.4866777 


ENTER 16. 659.7344573 


ENTER 22. 848.2399166 
ENTER 25. 942.4777962 
ENTER 28. 1036.725576 
ENTER i 31. 1139.973355 
ENTER 34 W225:92201085 
ENTER 37. 1319.468915 


ENTER End of “L” program 


Isn’t that neat? Look at all those numbers — that kind of accuracy is ridiculous 
for most measurements. See if you can be more reasonable. Suppose each measure- 
ment, R and H, had been made to the nearest tenth of a unit. Then you could expect 
the answer to be no more accurate than to the nearest tenth. You can force the com- 
puter to print the answer to tenths (or other places) with the USING statement. 


The USING statement is an instruction to specify a 


PRINT or PAUSE display format for numerical data. 
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To demonstrate this statement, go back to the PRO mode and type in this line: 


215 USING ''####.#'' ~———— This specifies the 
print format for line 220 


4 digits tenths 
place 


Now go to the DEF mode and do it all over again. Input a radius of 5, original 
height of 10, and an increment of 3. Then, on to program “S” to compute the surface 
areas. When the computer beeps 3 times, type SHIFT L to see the following results. 


Press See this result 

SHIFT, L 19.9 ATi Height, then area 
ENTER 13.9 565.4 

ENTER 16.9 659.7 

ENTER 19.8 753.9 

ENTER DOG 848.2 

ENTER 25.9 942.4 

ENTER 28.9 1936.7 

ENTER Sheth 1139.9 

ENTER 34.9 1225.2 


ENTER 37.9 1319.4 
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Use thesamepi -‘amtocom te the table in Problem 7. Use a radius of 2.35, 
original height of 5.50, ‘ithincremy 3 of 0.25. Change line 215 to print the surface 
areas to the nearest hunaredth. (Answ>r at end of ch «pter., 


Surface Area 


t 
lry# ' Heigat 


Summing Up ~hapter Two 


Three new Pocket Computer BAS‘C statements were introduced in this chapter. 


Statement Accepted Remarks 
Abbreviations 


AREAD X : The contents dispiayed at the 
start of a defined program arr 
automatically read into the 
specified variable. ( “) 


BEEP(X) A short tone (beep) is generated 
as many times as specified by 
value specified (X). 


Designates the format to be 
used for numerical data ina 
PRINT or PAUSE statement. 
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Other material presented includes: 


e Information on the Pocket Computer’s Memory: 
One memory box holds 8 bits of data. 
Eight memory boxes are used for each alphanumeric character. 


Names that may be used for memories: 


IN {SiC Se eal AAPM p00, 2 ee ee Z 
PSE RES Os ea ae aN ee DG, 0) I ances eee Z$ 
PONE) ee ee A(204) 
PSE ON) EOS OER TOS cheers REIN A$(204) 


e Prompt messages can be used in INPUT statements: 


INPUT ''NAME=?'';AS 


e How memory is used as you enter a program: 


Program steps are stored at the opposite end of memory from variables with 


One BASIC line may use several program steps. 


Variable values may be assigned to memory locations at the opposite end of 
memory. 


( Care should be taken in assigning variables so that memory used for variables ¢ 
does not overlap that used for program. : 


¢ Definable mode — The lower two rows of keys can be defined to execute 
subprograms that have been labeled by shifting a definable key. 


e Arrays are stored in memory as subscripted variables such as: 


A(1), A(2), A(3),....---- A(204) for numeric variables, 
or A$(1), A$(2), A$(3),.....- A$(204) for string variables. 


A(1) or A$(1) occupy fixed memory #1, 
A(2) or A$(2) occupy fixed memory #2, 
etc. 


If more than one array is to be used in a program, they must occupy different 
memory locations as denoted by their subscripts. 


Example: A(1) through A(10) for one array, 
A(11) through A(20) for another array, 
etc. 
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Chapter Two Self-Test 


ik 


A cylinder is to have a volume of 3,000 cubic centimeters. Write a program that 
will let you input the radius and compute the height. Complete the chart for the 
inputs shown. 


HINT: V= R?H What does H equal if you know R and V? 


Volume Radius Height 


Enlarge your program for Problem | to calculate the total surface area of the cyl- 
inder after the radius has been input and the height calculated. 


HINT: S=2/ftR?+27RH 


Complete the chart. 


A soup company wants to package soup in cans that will hold 3,000 cubic centi- 
meters. They send an order to a can manufacturer for cans that will hold that 
amount, but they stipulate that the can must use the least amount of material pos- 
sible. Several radii were investigated to find which radius—height combination 
would give the correct volume and still have the smallest surface area. Write a 
program that they might have used. Use your program and search until you find 
the best radius to the nearest .001 centimeter. 


HINT: Use your program for Problem 2. Also study the results of that problem 
for a clue as to where to start looking. 
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Best radius = 
Best height = 


Smallest surface area = 


RatioR/H= 
Answers to Chapter Two Self-Test 
Ie 
Program 
19 INPUT ''RADIUS='';R 
29 H='3999/( *R*R) 7.891980649 
a eee. 9.549296586 
A 4 11.78925504 
2 


Program 
Surface Area 


19 INPUT ''RADIUS='';R 

29 H = 399G/ *R*R) 11.78925504 
39 PRINT R,H : 13.2170195 
4g S = 2* *R*(R+H) 

59 PRINT S 14.92077591 
6% GOTO 19 : 16.97652726 


19.48836038 


3. Wefirst tried these: 


13.8616587 1155.740202 
14.20180932 1154.188697 


14.55463586 1152.980529 
14.92077591 1152.123859 
15.30090784 1151.627266 
15.69575376 1151.499763 
16.10608296 1151.750836 


1175.604676 
1159.842492 
1152.123859 
1153.429173 
1165.018937 
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Then we tried these: 


oo 


15.53600158 1151.505877 


15.57571019 1151.498705 
15.61557124 1151.495288 
15.6555855 1151.495638 


15.69575376 1151.499763 


Last of all these: 


ee 


15.61157825 1151.495461 
15.61557124 1151.495288 


15.61956576 1151.495154 
15.62356181 1151.495057 
15.62755939 1151.494997 
15.63155851 1151.494976 


15.63555917 1151.494992 


Best radius = 7.816 


Best height = 15.63155851 


Smallest surface area = 1151.494976 


Ratio R/H = 0.50001412180r2R H 


1. 


Answers to Problems in Chapter 


Cylinder Exercises 


aS ae 


2356.19449 7068.58347 
2368.760861 7595.978337 
2287.079452 7389.025921 
2205.398043 7156.940764 
2123.716634 6902.07906 
2042.035225 6626.797003 


1960.353816 6333.450789 
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2. Su-face Areaf ylinders of Radius 2.35 


Surface Area 


--) 
“") A 


CHAPTER THREE 


Error Codes, Editing, and Cassette Use 


The TRS-80 Pocket Computer performs a wide variety of operations and functions, 
but there are limits to what any computer can do. The Pocket Computer has ways to 
let you know when you are asking it to execute a statement or command that it cannot 
perform. There are a great many ways that such situations can arise. You have proba- 
bly already found a few of them. 

In this chapter you will learn: 


e what the Pocket Computer’s six error codes mean; 

e how to use editing features to insert and delete segments of program lines; 

e how to save and load programs via cassette tape; 

e howto load a program from tape without disturbing other programs that 
are already in memory; 

e how to generate random numbers; and 

e how to load and use a random number-generating subroutine in other pro- 
grams. 


We'll use a solution to the following problem to cause some error codes to ap- 
pear. Then we’ll see if we can correct them with some of the Pocket Computer’s edit- 
ing capabilities. 


The Problem — CLIP CLOCK 


The ComputerTown Engine Company has a large, round, 24-hour clock on the wall 
which everyone uses to synchronize their watches before important events. The latest 
event led to this problem: It was almost midnight, and the stalwart crew loaded up a 
long program to run while they rested. Big George observed that the program they 
were about to run consisted of a single subroutine that was called exactly 1,001 times. 
Each call of the subroutine took exactly one hour. The obvious question is, “What time 
will the program finish, as measured by the 24-hour clock?” Since this problem may 
recur, a program is needed that inputs the number of times the subroutine is called, 
and then prints out the time of day that the program will finish. (You should know the 
truth about the ComputerTown Engine Company — they drink coffee, play tennis, 
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talk, and generally carry on until late in the evening.) The ComputerTown Engine 
Company always start running their programs at midnight. Before looking at our 
demonstration program, see if you can conjure up a program of your own. Write it in 
the box provided. 


Your Program 


Problem | Subroutine 
(answer at end of chapter) 


Now let’s take a look at the program that Big George came up with. These thoughts 
ran through his mind. “The obvious thing to do is start subtracting 24 from 1,001, 
since the clock will be back where it started each time it performed 24 subroutine calls. 
I’ll write a program to keep subtracting 24 and test each time to see if fewer than 24 
hours remain. When that happens, I’ll know when the job is over.” 


Big George’s Solution 
19 T=1991 
29 IF T<24 THEN PRINT T;END 
39 T=T-24 
49 GOTO 15 


Well, as you probably realize from looking at the program, Big George is not the 
best programmer in the world. Enter his program in your Pocket Computer and see 
what happens when you try to run it. Here’s what happened to Big George when he 
tried. 


Error code 2 
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George held down the [s] key to see what was wrong. 


49:GOTO 15 


Something’s wrong about the 
line number 15 


Error Code 2 indicates a line error. It occurs when you 


try to GOTO, GOSUB, RUN, DEBUG, or LIST a state- 
ment that doesn’t exist. 


Big George pressed the MODE key until he was in the PROgram mode. Then he 
tried to list line 15. 


List 15. 


Since we get error code 2 again, 
we know that line 15 must not exist. 


Big George really meant to say: 49 coro 29. He didn’t have to retype all of line 
40 to correct it. You can use the Pocket Computer’s editing ability, just as he did: 
Clear the display with the CL key. 


Type LIST 49_ PRO Must be in 
PRO mode 


Then press ENTER. 


49:GOTO 15 


Press the[>] key. 


49 GOTO 15 


Cursor blinks over the letter 
G of GOTO 
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Press the[D]key again. 


Blinking cursor moves over the 
1 of 15. You want to change that. 


The number 15 must be changed to 20. Therefore, pressthe 2. key. 


49 GOTO 25 


Blinking cursor moves over the 5 
2 replaces the | 


Now press the zero key 0. 


48 GOTO 29 


20 has replaced the 15 


Press the ENTER key to complete the entry of your new line 40. 


Colon indicates the new line 
has been entered 


Big George goes back to the RUN mode and tries again. After the program runs 
awhile, it suddenly stops again. 


Error code 1 
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He presses the [=] key. 


( 20:IF T<THEN PRINT T; ) 
Blinking cursor over the 


Pin PRINT 


Error code | indicates one of several things: 
a) A grammatical (or syntax) error 
b) Operational error (division by zero, absolute 


value of result is greater than 1 X 10 ' etc.) 
c) Error in memory specification (numerical value 
assigned to a string variable, or vice versa) 


George’s error appears to be a grammatical error since it doesn’t fit b or c. There 
must be something wrong with the syntax of THEN PRINT. By closely reading your 
TRS-80 Pocket Computer Manual (page 61), you will probably come to the conclu- 
sion that THEN has the same function in an IF statement as GOTO. In other words, if 
you use IF-THEN, the computer expects a Jine number to follow the word THEN. 
Page 60 of the manual indicates that George should use IF-PRINT, not the word 
THEN. 

Big George should delete the word THEN in line 20. He goes to the PROgram 
mode and LISTs line 20. 


29:IF T<24THEN PRINT T; 


He presses [>] once, 


2Q IF T<24THEN PRINT T; 


[>] again, 


29 IF T<24THEN PRINT T; 


[>] several more times until the blinking 
cursor is over the letter T of THEN. 


29 IF T<24THEN PRINT T; 
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Now he presses SHIFT, DEL DEL for delete 


(fc ere SHIFT to get DEL instead 


.of [<1] 


29 IF T<24PRINT T;END 


MAGIC! The whole word THEN 
was deleted 


By pressing ENTER the altered line will be entered. 


29;IF T<24PRINT T:END 


Big George RUNS again! 
The program runs, George waits. Finally... 


OOPS! He did it again 


He holds down the[ # |key again to see what is wrong this time. 


29 IF T<24PRINT T: END 


Another grammar error? 


Look at the line carefully. Big George meant line 20 to be a multiple statement 
line consisting of the two statements: 


IF T<24 PRINT T 
and 
END 
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He can’t find anything wrong with either part, so it must be the way that he 
joined them. Notice what he used to separate the two statements — a semicolon. The 
semicolon is used to separate two variables to be printed. The computer thinks he 
wants to print T and END. But variables can only bea single letter or a single letter 
followed by a subscript or $ sign — not three letters. Therefore, the computer is con- 
fused and gives a syntax, or grammar, error message. That semicolon should be 
changed toa colon. 

Big George goes to the PROgram mode once again. How many times must he 
press the [P] key (after LISTing line 20) to get the blinking cursor over the semi- 
colon? We counted eight times as we watch over his shoulder. Then he presses SHIFT, 
I to change it toa colon. 


20 IF T<24PRINT T:END 


He then presses ENTER. 


29:IF T<24PRINT T:END 


Big George runs once more: He waits awhile, then 


7 


ZZ Success maybe? 


But how does he know if he’s right? Little Fred comes to the rescue. He leaves 
the computer in the RUN mode and types: 


T=1991 


Then he presses ENTER and types 


T—INT(T/24)*24 


and presses ENTER. 


es 


Same result 
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What does Little Fred know that Big George doesn’t? His result sure came a lot faster 


than Big George’s. 


Well, Little Fred remembered what he learned in school. When you divide one 
integer by another, you get a quotient (Q) and a remainder (R). 


4] ~—— Quotient 


Divisor —»24 1001 
96 a Dividend 


41 

Remainder 
24 
17 bagel 


Little Fred reasons that if he subtracted 24 
times the integer part (41) of the quotient, from the 
original number of subroutine calls, the difference 
would be the remainder. The remainder would be 
the time the clock would show after it makes all of 
the complete revolutions. 


paea The hour hand will 

be on 17 when 1001 
subroutines have been 
executed. 


By the Pocket 
Computer 


41.79833333 ) 


41 complete revolutions of 
the clock. During that time 
41 X 24 (or 984) calls were 
made to the subroutine. 


1001/24 = 41.70833333 


41 = INT(1001/24) 


INT(1001/24)*24 = 984 


1001—984 = 17 remainder 


Even though Big George didn’t do a very good job on his original program, he 
learned something about error codes and the editing features of his Pocket Computer. 
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Other error codes that Big George, and you, should learn are: 


e Error code 3 is called a /evel error. 
a) It occurs when you exceed 4 levels of aGOSUB or FOR-NEXT 
statement. 


FOR A=1TO2 

FOR B=1T0O10 
FOR C=3TO5 
FOR D=1TO7 


—> FORE=5TO6 
Ren ss > sth > 4th 
NEXT D 
NEXT C 


NEXT B 
NEXTA 


b) It occurs when you try to execute a RETURN without a previous 
GOSUB. 
c) Itoccurs when you try to execute a NEXT without a previous 
FOR. 
Error code 4 indicates that you have insufficient memory for either a 
program step, reserve memory, or a dimensioned memory. 
Error code 5 indicates a control error when using cassette tape (verify 
error, check sum error, etc.). 
Error code 6 isa PRINT or PAUSE format error. It occurs when a dis- 
play of numerical data is not in the format that has been specified. 


Editing Features 


Correcting: Use the[<] or [Pp] keys to move the cursor to the position 
where the correction is needed. Then enter the correction. 

Inserting: Use the [S] or [D] keys to move the cursor to the position 
where you want the insertion to be made. Then press SHIFT [r) to in- 
sert the character desired. The contents of the position under the cursor 
and all after it will be shifted one place to the right. Press SHIFT and 
[>] before each successive insertion if there is more than one to be 
made. 

Deleting: Use the [<i] or [] keys to move the cursor to the position you 
want to delete. Then press SHIFT [§] to delete that character, nu- 
meral, or statement. The contents of that position will be deleted and all 
following will be shifted to the left. 
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Using the Cassette Recorder 


The optional cassette interface (Radio Shack Catalog Number 26-3503) makes the 
Pocket Computer an even more useful tool; programs may be SAVEd permanently for 
future use. One of its practical uses is to save frequently used subroutines. The subrou- 
tines can then be added from the cassette to any program that you wish. The 
Minisette—9 Cassette Recorder (Radio Shack Catalog Number 14-1812) is an excel- 
lent companion to the Pocket Computer because it is both portable and operates on 
batteries. 

One subroutine that you will use frequently is a random number generator. Ran- 
dom numbers are used for the occurrence of unpredictable events in recreational or 
business simulations. Such unpredictable events can be programmed to occur ran- 
domly during program execution. 

Some computers have such a function built in, but due to the size of the Pocket 
Computer, this feature was not incorporated. However, a short subroutine can be writ- 
ten to generate numbers randomly. There is such a program on page 112 of the TRS- 
80 Pocket Computer Software Manual. We have modified that program to fit our 
particular needs at this time, starting it with a high line number (900) that wouldn’t 
interfere with lower numbered programs. 


Random Number Subroutine 


900 "A 2 INPUT'! INITIAL VALUE (1-9)?'';Z 
919 X=ABS(439147+X+2Z) 


938 W=23*xX 

949 X=W-INT(W/Y)*Y EAM: 
959 IF X=@ THEN 919 ag ; 
96% RETURN frn(eq 


929 Y=E2+1 ee ee ae 
IE is the Exp key 


WARNING! The subroutine uses variables W,X,Y, 
and Z. If you use any of these variables in your main pro- 


gram, the subroutine will alter your values. 


When the computer returns from the subroutine, a random number will be as- 
signed to X. Use it in any way you wish. In line 920, Y is assigned to the value E2 + 1. 
That’s just another way to express 10 + 1, or 101. Notice line 940 of the subroutine. 
Doesn’t that look like Little Fred’s check of the 24-hour clock subroutine call prob- 
lem? It sure does. The random number generator is using the remainder of a division 
to get its random number. 


Save the Subroutine on Cassette 


If you have the optional cassette interface and a recorder, you will want to save the 
subroutine on tape. 


1. Enter the subroutine in the Pocket Computer. A program may be saved 
in the DEF, RUN, or PRO mode. You can leave the computer in the 
PRO mode used to enter the program. 
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2. Connect the cassette interface and recorder as described in the Appendix 
of your TRS-80 Pocket Computer Software Manual. 

3. Insert a new, blank cassette in the recorder and rewind it. If it has a clear 
leader on it, wind the tape past the clear leader so that data can be re- 
corded. 

4. Note the index setting of the recorder. Set the controls of the recorder so 
that it is ready to record. Then type CSAVE “RANDOM” and press 
ENTER. RANDOM will be the name of the cassette file which contains 
the subroutine. 


As the program is being recorded, you may notice that it goes to the RUN mode. 
When the program has been completely recorded, the cassette stops and the computer 
returns to the PRO mode. You should now check to see if the program was success- 
fully loaded. 


5. Reset the cassette tape to the beginning of the previous recording. Press 
the PLAY button on the recorder. 
6. Type CLOAD?”RANDOM” and press ENTER. 


CLOAD? compares the information on the tape to the in- 


formation in memory. If they are not the same, error code 
5 will be displayed. 


Either a bad SAVE ora 
bad LOAD 


Reset the tape to the beginning of the recording and try again. You may have to 
experiment with the volume control of your recorder. 

When you have a successful CLOAD? the computer will return to the PRO 
mode and display the usual prompt [ > ]. 


LOAD the Subroutine from Cassette 


"In the future, you will want to add this subroutine to other programs. Ordinarily, when 
) you LOAD a program from tape, all programs currently in the computer are erased. 
\ The Pocket Computer has a feature to avoid this. The command: 


CLOAD1''RANDOM'! 


Load from ese 


ut leave the 
tape, existing program(s) 
in memory. 


Add on the program 
named “RANDOM”. 
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We will use this command to load the subroutine after we enter the main program. 
The main program calls the subroutine, prints the resulting random number, and then 
calls the subroutine again. This process repeats until you decide to stop it by pressing 
the ON _ key to break into the program. 


Main Program — Subroutine Call 


19 GOSUB' 1A!) <——_____________________-_ The subroutine is 


2@ PRINT X labeled “A” 
39 GOTO 19 


Type NEW and enter the three-line, main program. Then set the controls of 
your recorder to PLAY and the tape to the beginning of the subroutine that you saved. 
Load the subroutine with the CLOAD1 command. 


CLOAD1!''RANDOM''! 


Press ENTER. When the subroutine is loaded, LIST it line by line. 
You Type. Computer Displays 


LIST, ENTER 19:GOSUB ''A'! 
2Q:PRINT X 


39:GOTO 19 


[J 


[>] OOP OA SINPUT * SINITIAL V 


Remember, the display only 
shows 24 characters. 
However, the rest is 

in the computer. 


er? 


= 


969: RETURN 
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It’s all there. RUN the program to check a few random numbers. Fill in the 
chart in Problem 2. The computer will ask you to input an initial value each time that 
the subroutine is called. We used S for our input each time. Use any number you wish. 
(The answer is at the end of the chapter.) 


Initial Value Random Number 


~ Ww Nn 
Nn Oo 


You Ours | Yours 


wn Wn Nn n n wn oN Nn Nn Nn < 
o 

oo + co to 

w aS w 


Nn oo 
Nn \o N 


Ww 


j=) 


100 


oO 
i ; 


Problem 2. Random Number Chart 


Applying the Random Number Generator 


The Popup Toy Company, which manufactures ten different kinds of toys, has re- 
cently automated their factory. As a toy comes off the production line it is placed in 
one of ten different bins. One worker sits at a display console where he has control of a 
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robot that travels down the line of bins. The worker presses one of ten buttons to tell 
the robot which of the ten toys to search for. The robot looks in each bin in turn and 
reports whether that bin contains the particular toy that it is searching for. If the robot 
doesn’t find the toy in the first bin, he reports, “X NOT HERE.” (X is the number of 
the particular toy.) If he finds the toy, he reports, “X FOUND IN BIN Y.” (¥ is the 
number of the bin where the toy is found.) 

The company wants a computer program that will handle the messages. Each 
toy is numbered so that the robot can compare the toy’s number with the number it is 
searching for 

Can you write such a program for the Pocket Computer, using the Random 
Number subroutine to fill the bins with toys? Record your program in the box 
provided. 


Your Toy Program 


Problem 3. Toy Program 
Here’s the program that POPUP TOYS used. 


Popup Toys Program 
19 FOR N=1 TO 19 
29 GOSUB ''A'! gh Bp tel ak ae ellie 2 a BG random 
39 A(N)=X é number for 
co Apiank abe each toy 


5Q@ INPUT ''PICK A TOY (1-19)'';A(11) 
68 FOR N=1 TO 19 


7Q IF A(N)=A(11) BEEP(1):PRINT A(11);'' IS IN BIN '';N Spaces separate 
89 IF A(N)<>A(11), PAUSE A(11);''NOT.HERE'' numbers from text 
99 NEXT N 


199 BEEP(3):GOTO 58 


Look in each 
bin and report 


hh 
} 
/ 
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Try their program as well as your own. After you enter their program, CLOAD1 
the Random Number subroutine. Change line 920 to: 


This will keep the random 
929 Y=(B1+1 numbers in the range of — 
1 through 10./S¢C F. 6 /) 


When you run the program, the Random Number subroutine loads the bins randomly 
with toys numbered from | through 10. Remember, you must type in an initial value 
each time to “seed” the random number generator. The toy’s number will not coincide 
with the number that you type in for the initial value. The computer then displays: 


PICK A TOY (1-19)_ 


The worker would then type in the number of the toy that he desired. The robot 
searches the bins from 1 through 10, reporting back “X NOT HERE” or “X IS IN 
BIN Y,” depending on whether he spots that toy or not. Put yourself in the place of the 
worker at the console. RUN the program and fill in the toy number found in each bin. 


1 De By aS G7 aes 9 10 
Problem 4. TOYS in Bins 


Here is a typical result that we obtained after going to the subroutine ten times to load 


the boxes. 


BEEP! 


te IS: IN BOX 1: 


Then for nine times in a row as it searches boxes 2 through 10. 


- NOT HERE 


| 
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Boxes so far: 


PICK A TOY (1-19)2 


No BEEPS this time. Just ten times in a row: 


2. NOT HERE 


PICK A TOY (1-19)3 


BEEPS at boxes 4 and 7. 


Boxes so far: 


Notice that the robot must look in each bin, even if it has already found a toy in 
one or more of the bins. Can you modify our program so that the robot will pass by the 
bins where he has previously reported a toy found? (Answers are at end of chapter.) 
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Your Modified Toy Program 


Problem 5. Popup Toys Modification 
Summing Up Chapter Three 


New Pocket Computer BASIC Statements and Functions 
' Statement Accepted 
or Function Abbreviations 


ABS 


Remarks 


Find the largest integer contained in the 
specified expression. 


Take the absolute value of the specified 
expression. 


GOSUB Go to the subroutine starting at the 


specified line or label. 


Return from the subroutine to the main 
program. 


RETURN 


Record a program from memory onto a 
cassette tape. 


Load a program from cassette into 
memory (other programs in memory are 
erased). 


CLOAD? Check contents of program in memory 
with those placed on tape by previous 


CSAVE. 


CLOAD1 Load a program from cassette into 
memory (adds it to program(s) already 


there). 


Note: Periods in abbreviations must be included. 
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Error Codes 


Syntax error 

Operating error 

Error in memory specification 

Line number error 

Level error (GOSUB or FOR-NEXT) 
Insufficient memory 


Control error of magnetic tape 


Error in PRINT or PAUSE format 


Editing Features 


Correcting: [>] or [d]key used to move the cursor to the 

position where correction is to be made. 

Inserting: Same keys used as in correcting to position 
cursor. SHIFT, [6] INS for INSERT keys used 
before inserting a new character. 

Deleting: Same keys as for correcting used to position 
cursor. SHIFT, [a] DEL for DELETE keys used 
before deleting a character, numeral, or 
statement. 

Other New Items: 


e Exp key is used to raise 10 to the specified power. The symbol displayed is 
IE 


e A Random Number generator was given for future use. 

¢ Subroutines were introduced using GOSUB and RETURN. 

° The IF-THEN statement requires a line number following the word 
THEN. For other uses of an IF statement, a direct statement such as 
PRINT, PAUSE, or LET should follow the specified condition. 


Chapter Three Self-Test 


1. The Popup Toy Company needs a program to display the inventory of each of its 
ten toys after monthly sales are reported. The inventory must be known at the be- 
ginning of each month. The monthly sales for each toy is input and the resulting 
inventory is displayed. Write the program to obtain the original inventory from 
the Random Number subroutine (values 1 through 1,000) for each toy. The 
monthly sales of each toy must be input from the keyboard. The ending inventory 
is calculated and displayed. 
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HINT: Line 920 of the subroutine must be changed to give values | through 
1,000. 


Your Program (including the subroutine) 
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2. Fillin the following chart when you run your program. 


Starting Ending 
Inventory Inventory 


3. Adda section to your (or our) program for Problem | so that the month’s produc- 
tion of toys can be added to the ending inventory. Then have the program repeat 
itself for a full year. The first month’s inventory is random, but then Popup can 
build more toys. 

Your Additions or changes 
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Answers To Chapter Three Self-Test 


18 FOR N=1 TO 19 
2% GOSUB ''A'! 

39 “A(N)=xX 

49 NEXT N 

19@ REM * DISPLAY AND INPUT * 

118 FOR N=1 TO 19 

120 PRINT’ \TOy #Y Neh) 9) PACN) 

13 INPUT ''MONTHLY SALES ='';S 

148 A(N)=A(N)—-S 

159 IF A(N)<@ PRINT''NOT ENOUGH INVENTORY'':A(N)=A(N)+S:GOTO 129 
168 NEXT N 

179 BEEP(3) 

188 REM * DISPLAY NEW INVENTORY * 

199 FOR N=1 TO 19 

200: PRINT' "TOY 4°" NPN" " 'SacN) 

219 NEXT N 

229 END 


2. Answers will vary, but here is ours. 


Starting Monthly Ending 
Inventory Sales Inventory 


BRWNe 


5 
6 
7 
8 
9 
1 


3. Additions or Changes 


195 FOR M=1 TO 12 

197 PAUSE ''MONTH #'';M 

295 INPUT ''NEW TOYS PRODUCED =?'';T 
297 A(N)=A(N)+T 

215 NEXT M 
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A typical two month’s run of the program would produce results similar to these: 


Second 
Month 


Answers to Problems in Chapter 


1. Subroutine Problem 
A general program to solve the problem would look similar to this: 


19 REM * FIND R FOR T/Q * 


29 INPUT ''T='';°T 

39 INPUT ''Q='';Q 

49 PRINT ''REMAINDER= '!';T—INT(T/Q)*Q 
59 END 


(50 could be GOTO 20 if there are more than | T and/or Q.) 
2. Random Numbers 


Initial Value Random Number 


We can’t tell what your 
answers will be, but your 
random numbers should be 
in the range of 1 through 100. 
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3. Toy Program 

Compare your program with the one on page 65. 
4. Toys in Bins 

Again, your answers are random and unpredictable. 
5. Popup Toys Modification 

Solution 1 

In this solution, the robot looks in each bin, but does not bother to report the bins 
where the desired toy does not exist. 

ELIMINATE LINE 80 

This cuts down the GOTO loop executions of lines 50 through 100 from about 4 
minutes to approximately 2 minutes because the PAUSE statement takes about 0.85 
seconds for each execution. 

Solution 2 

In this solution, a light on the front of the bin is turned on when a toy has been 
found by an addition to line 70. A new line 65 is added to allow the robot to check the 


light. The GOTO loop looks like this: 


59 INPUT ''PICK A TOY (1-1%)'';A(11) 
6% FOR N=1 TO 19 
65 IF A(N)=% THEN 99 


79 IF A(N)=A(11) BEEP(1):PRINTA(11);'' IS IN BIN '';N:A(N)=@ 
80 IF A(N)<>A(11) PAUSE A(11);'' NOT HERE'! 
99 NEXT N 


199 BEEP(3):GOTO 59 
Turn on light 


when a toy is 
found. 


This program takes approximately 3 minutes to execute the loops. 
Solution 3 
This solution makes use of a logic statement in line 70 to report which toy is 
found in a particular bin. It reports only when the toy is found. The GOTO loop: 


59 INPUT ''PICK A TOY (1-19)'';A(N) 
69 FOR N = 1 TO 19 
79 Y=(A(N)=A(11)) 


89 IF Y=1 BEEP(1):PRINT ''TOY #'';A(11);'', IS IN BIN '';N 
99 NEXT N / 
18% BEEP(3):GOTO 5@ 


Don’t forget the space 
to separate numbers 
from text. 


If the statement at line 70 is FALSE, line 80 is not executed, and the next A(N) 
is tested. This solution takes about 2 minutes to complete the search if you are fast in 
recording the results. 


CHAPTER FOUR 


Data Files 


You learned how to save and load programs in Chapter 3. You worked with an inven- 
tory program in the problem section that created and kept track of Popup Toys’ sup- 
ply. However, the data were stored in the computer’s memory and were not saved for 
future use. This is not very practical unless you are not going to use the computer for 
anything else. But chances are that you are going to want to record a lot of personal 
and business data once you start using your Pocket Computer. 

In this chapter, you will learn: 


e how to store a data file on cassette tape; 

e how to retrieve a data file from cassette tape; 

e how to use a program that: 
a) inputs inventory data from the keyboard or from cassette tape, 
b) allows you to modify the data 
c) allows you to save the resulting data file on tape for future use. 


The Popup Toy inventory program introduced in Chapter 3 can be made more 
useful by revising the program to include saving the inventory data from month to iS 
( month. Programs are saved by the CSAVE statement, but data is saved witha PRINT + 
) #statement in one of two formats. y 
a) Tosavea specified memory and all that follow: 
PRINT # ''DATA 1'';A(5) 


pe eee 


save on adata file save the data in 
cassette tape named memory A(5) and all 
DATA 1 memories following A(5) 


b) Tosave all data memories in sequence: 
PRINT # ''DATA 2'! 


save on adata file no memories 
cassette tape named specified 
DATA 2 


These statements may be executed from within a program or in the immediate 
(manual) mode. Of course you must have your cassette interface and recorder con- ? 
) nected as shown in the TRS-80 Pocket Computer Software Manual. The recorder 


\ 
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must be turned on and ready to record the data when the PRINT # statement is exe- 
cuted. 

If you save data on a cassette tape, you must be able to load the data back into 
the computer. TRS-80 Pocket Computer BASIC uses the INPUT # statement to do 
this. It too may be used in two forms. 

a) To input data from a specified memory in sequence: ( 

INPUT #''DATA 1'';A(5) 


ae: (acacia Sana 


{1 5) 


Input from the data put into memory starting 
cassette tape filenamed from A(5) 
DATA@14 


b) To input a whole file: | 
INPUT # ''DATA 2"! 


Input from the data no memory specified 
cassette tape file named 
DATA 2 


The computer searches the cassette tape for the specified file name. It loads only 

the data from the named file and ignores data contained in other files with different _ 

( names. The data are loaded in sequence starting from memory | in format b, or from / 
the memory specified in format a. 


Cassette Use — Immediate Mode 


Use the following program to input data from the keyboard to create a data file. 


Load Inventory Program 19 REM *INPUT DATA* 
49 FOR Y = 1 TO 19 
58 PAUSE ''TOY #'';Y 
69 INPUT ''HOW MANY?'';A(Y) 
79 NEXT Y 


You'll notice that we skipped some line numbers between 10 and 40. Later we’ll 
add some lines there to expand this section as we develop a more complete inventory 
program. 

Enter the above program and RUN it using the following data: 


Toy Input 
Number Inventory 


1 
a) 
3 
4 
5 
6 
7 
8 
9 
0 


= 
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During each pass through the FOR-NEXT loop the computer will flash the toy num- 
ber briefly and then ask you how many. Wait for it to PRINT: 


HOW MANY?_ 


before typing in the inventory number. Then press ENTER to move on to the next toy. 

After you’ve finished putting in the data, insert the Pocket Computer in the cas- 
sette interface (if it’s not already there). Connect the recorder and insert a blank cas- 
sette. Saving a data file takes lots of tape space. Don’t try to save data on a tape 
containing other data files or programs unless you are positive that there is enough 
room. Turn the recorder on and make the necessary settings to prepare it for 
recording. 


Type: PRINT #!''INVEN.''_ 


Press ENTER 


Be prepared to wait awhile. It takes some time for all data memories to be saved. 
After the data have been saved on the tape, the recorder stops and the computer 
displays its ready prompt. 


| 


Type CLEAR to clear the computer’s memories. 


CLEAR 


Press ENTER. 


Just to make sure that the memories have been cleared, 


Type 


AGA 


and press ENTER. 
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Yes, A(1) has been cleared. 


Make sure your recorder is ready to input. Press the PLAY button and type: 


INPUT #''INVEN.''_ and press ENTER. 


The data is read from the tape. Then the > prompt appears. 


Type A(1) and press ENTER. 


39.) <«—— The same value 
you entered and 
saved 


Check the other memories — A(2) through A(10) — in the same way. Make 
sure that they ure the same as those used in Memory-Use Chart on page 81. 


Cassette Use — Program Mode 


When you are sure the data are correct, it’s time to write a complete program that 
Popup Toys can use to keep a record of its inventory. 
They need: 


1. An input section that will either input data from the keyboard or from 
cassette tape, 

2. A section to enter monthly sales and compute the modified inventory, 

3. A section to display the modified inventory and record the month’s pro- 
duction, and 

4. A section to record the month-ending inventory on tape so that it will be 
ready to input next month. 


Let’s look at the program one section at a time. 


DATA FILES 


Popup Toy Inventory Program 
1—-Input the Data 
18 REM *INPUT DATA* 


29 INPUT ''DATA TAPE (YES OR NO)?'';Z$ Skip 40 through 90 if 
39 IF Z$ = ''YES'' THEN 199 «—__—_—_—. data are from 

49 FOR Y = 1 TO 19 

5@ PAUSE ''TOY #'"';Y Fane 

6@ PRINT ''HOW MANY?'';A(Y) 

79 NEXT Y From keyboard 

89 BEEP(1) 

SCORE ZOD Wie os Skip tape section 

199 REM *READ DATA TAPE* if data are 

119 PRINT ''READY YOUR RECORDER'' from keyboard 


12Q INPUT #''INVEN.''! 
139 BEEP(2) OMe: 
Read data tape 


Either lines 40 through 90 or 100 through 130 are used, depending on whether 
the data to be input are coming from the keyboard or tape. 


2 —Enter Sales 


298 REM *ENTER SALES* 


279 FOR Y = 1 TO 19 
220 PRION T! PUD OY Sees ype UI TU sey.) 
239 INPUT ''MONTHLY SALES='';S 


249 A(Y)=A(Y)-S 

259 IF A(Y)<@ PRINT ''NOT ENOUGH INVENTORY'':A(Y) =A(Y)+S: 
GOTO 239 

268 NEXT Y 

279 BEEP(3) 


To use this section: 

Line 220 prints the toy number and the amount in inventory. 

Press ENTER to go on. 

Line 230 prints ''MonTHLY SALES?'' and waits for you to type in how many of 
that particular toy were sold. Enter sales and press ENTER. 

Line 240 subtracts the toys sold from the amount on hand to compute the modi- 
fied amount of that toy on hand. 

Line 250 checks to make sure you have enough of the particular toy to make the 
requested number of sales. If there is not enough, a new number of 
sales is requested. 

Line 270 beeps three times to signal the end of this section. 
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3 — New Inventory and Production 


399 REM *DISPLAY NEW INVENTORY AND PRODUCTION* 


319 FOR Y = 1 TO 19 

3's PRUNTUI UIOYe ets Mls ater ak (aye 
33 INPUT ''NEW TOYS PRODUCED='';T 
348 A(Y)=A(Y)+T 

35% PRINT ''SUPPLY NOW='';A(Y) 

36% NEXT Y 


To use this section: 
Line 320 prints the toy number and the supply on hand following the sales of 
section 2. 

Press ENTER to continue. 

Line 330 prints NEw Toys PRODUCED= and waits for you to input the number of 
new toys. 

Input the number of new toys produced. 

Press ENTER. 

Line 340 computes the resulting inventory. 

Line 350 prints the new supply of that particular toy. Press ENTER to continue. 

The lines above are repeated for each toy (1 through 10). 


4 —Save Data File on Tape 


49 REM *SAVE DATA FILE* 
419 INPUT ''SAVE FILE ON TAPE?'';ZS$ 
429 IF Z$ = ''NO'' THEN 449 

43Q@ PRINT #''INVEN.''! 

449 BEEP(4) 

459 END 


Line 410 allows you to make a choice as to whether or not you want to save the 
data. If you do, type YES. The data will be saved on tape by line 430. 
BE SURE YOUR RECORDER IS SET TO RECORD THE DATA. 
If you type NO, line 420 will cause line 430 to be skipped. 

Line 420 checks your response to line 410. If your answer was no, line 430 is 

skipped. 

Line 430 records the data file on tape. 

Line 440 beeps four times to signal the end of the program. 

Line 450 is the END. 


The Memory-Use Chart shows which memories have been used and for what 
purpose. A tabulation of memory use should be made to ensure that you are not trying 
to use a memory location for more than one quantity. 
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Inventory 
by toy number 


1 
2, 
3 
4 
5 
6 
df 
8 
9 
] 


Unused 


Monthly Sales 
New toys produced 


'— Unused 


Loop counter 
Response to question 


Memory-Use Chart for Inventory Program 


Enter the complete program. You have a data file named INVEN. on cassette 
tape. Run the program and enter the data from your cassette tape. Then fill in the 
blanks in Problem 1 as you go along. 

Your first response is requested at line 20. 


tape, type YES. 
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The computer will go to line 100 and display: 


READY YOUR RECORDER 


Be sure your recorder is ready to PLAY the tape. Then press ENTER. The data 
will be input from the tape. This will be followed by two beeps to let you know when to 
go on. Lines 200 through 260 then allow you to enter the sales from Problem 1. When 
this has been finished, three beeps will sound. The computer then moves to line 300. 
You will first see: 


MOV lz. 20). 


This informs you that there are now 20 toy #1’s in stock after the month’s sales. Press 
ENTER to continue. The computer then displays: 


type 30 


The computer adds this value to the stock on hand and displays: 


SUPPLY NOW= 59 


This is the month’s ending inventory. Type ENTER to continue. Then the process is 
repeated for toys 2,3,4,5,6,7,8,9, and 10. Type in the appropriate new production from 


Problem 1. 
Monthly New New Ending 
Sales Inven. Produc. | Inven. 


1 
wy 
3 
4 
5) 
6 
7 
8 
9 
10 


Problem 1. Inventory Program Results 
(answers at end of chapter) 
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When all has been completed, the computer will ask: 


SAVE FILE ON TAPE?_ 


Type YES to save the ending inventory. Before pressing ENTER, be sure your recor- 

der is ready to record. Then press ENTER and the data will be saved. Four beeps wili 
be heard after the data is successfully saved. Then the > prompt is shown as the pro- 

gram ends. 


Have your data been saved correctly? 
To find out: 


1) Type CLEAR to clear the existing data memories. 

2) Set the cassette back to the beginning of the inventory data file just 
saved. Set your recorder to PLAY the data back in. Then type 
INPUT #''INVEN.'' and press ENTER. 

3) After the data are typed in, type A(1) and press ENTER. Fill in the re- 
sult in Problem 2. 

4) Repeat step 3 foreach memory A(2) through A(10). 


Type Toy # 


me | 
Ce ee 
oe a 
oc 
acres [2 
[amesren [ie 


Problem 2. Inventory Check After Reloading Data 
(answers at end of chapter) 
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Now that you know how to use the Popup Toy Inventory Program, RUN the 
program and keep a three-month account using the data in Problem 3. You’re on your 
own this time. Fill in the data as the program is executed. 


Toy Starting Sales Production Final 
Number | Inventory Inventory 
20 30 


SCOAANINDMNHRWN 


—_ 


1 
D 
3 
4 
5 
6 
7 
8 
9 
0 


—_ 


GFTOANANIDUNHPWN 


=" 


Problem 3. Three-Month Record (answers at end of chapter) 


How Data Files Are Recorded 


You probably noticed that it took a long time and a lot of tape to record the ten items 
of the Popup Toys Inventory Program. To make use of cassette tapes efficiently, you 
should understand and make use of the method used to record data on the TRS-80 
Pocket Computer. 
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Remember, first of all, how the memories in the Pocket Computer are used from 
both ends. 


Memory 
DE eee ESTES) 
Data Program 
from this ——» ~<«— from this 
end end 


When data are recorded by the statement: PRINT #”INVEN.” the recorder saves 
the data from all memories from the DATA end up to the end of the flexible program 
memory used. 


OND CN EVES 
i oo 


All this is saved Program 
on tape 


In other words, the shorter your program is, the more data are saved by the 
PRINT # statement. All memories are recorded from A(1) up to the end of the pro- 
gram, even though the memories may not contain data. A zero is recorded as the con- 
tents of memories not in use. 

If you use memories A(1) through A(10) and the PRINT # format that records 
all memories, much tape is wasted. If you knew where your program ended, you could 
choose subscripts closer to the end of program memory, and thus save the total amount 
of tape used to save the file. 

Example: 

Suppose the program ran to memory number 115. 


ON END ee 


End ———__—_—___—_—__ Start 


Program 


You might choose A(101) through A(110) for your data storage. Then use the print 
format: 


PRINT #''INVEN.'';A(101) 


This would record only memories 101 through 110, thus saving the tape normally used 
to record memories 1 through 100. 


Nd ed EI 
| These | These | Program 


memories memories 
ignored recorded 
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Now, the problem is how do you find out where the program ends in memory? 
Remember the MEM command? It will give you a clue. It tells you how many flexible 
memories are free for your use. Here’s what we did. 

The Popup. Inventory Program is in the computer. 

We typed MEM. 

When we pressed ENTER, we saw: 


859STEPS 111MEMORIES 
ie There’s the clue. 


111 flexible memories uriused 
(not counting the 26 fixed 
memories — (1 through 26). 


Es ES a 
| 26 fixed 1111 flexible | Program 


memories memories 
unused 


It looks like we could use A(121) through A(130) for our toy counters instead of 
A(1) through A(10). However, we will drop down 10 more memories to be saved and 
use A(111) through A(120). Much less tape will then be used for recording the values. 

Just to get a feeling of the time saved in this approach, we disconnected the re- 
corder and tested: 

1. print #''TEST'', and 

2. PRINT #''TEST'';A(111) 

Here are their recording times: 


PRINT #''TEST''! 


PRINT #° ' TEST '7A( 111) 


PRINT #''TEST!! Program 


recorded these in 
82 seconds 


7 ee | ce 
PRINT #''TEST'';A(111) Program 


recorded these 
in 16 seconds 
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The second method used 16/82 or .1951219512 as much tape as the first method (less 
than 1/5 as much). It would be to your advantage to change the Popup Toys Inventory 
Program to incorporate a change in the use of memories. See if you can change the fol- 
lowing Popup lines in Problem 4 so that you can use memories 111 through 120 for 
holding the toy inventory. 

Hint: Change FOR-NEXT loop start and end values. Add a new variable 
xX = Y—110. 


New (or Modified) Line 


45 
50 
120 
210 


Problem 4. Modifications to Popup Toys Inventory Program 
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Summing Up Chapter Four 
New Pocket Computer BASIC Statements 


Statement Accepted Remarks 
Abbreviation 


oes ; Clears all data 
memories. 


INPUT # ; Transfers data fro 


cassette tape to 
data memories. 


PRINT # : Transfers data from 
computer’s memories 
to cassette tape. 


Other New Items: 


e PRINT # can be used in two formats: 
a) PRINT # ''NAME'' Records all data memories 
onto cassette tape. 


b) PRINT # ''NAME'';A(111) Records all data memories 
from 111 upward onto cassette 
tape. 

e INPUT # can be used in two formats: 

a) INPUT # ''NAME!'' Transfers data from cassette 
to computer’s data memories 
in sequence beginning with 
memory #1. 


b) INPUT# ''NAME'';A(111) Transfers data from cassette 
to computer’s data memories 
in sequence beginning with 
memory #111. 


e The amount of tape used to record a data file depends upon the PRINT # format 
used. 

e PRINT #and INPUT # can be used from either the manual mode (DEF or 
RUN) or from within a program. 


e After all the practice in this chapter, you should now be proficient in the use of the 
cassette recorder for data files. 
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Chapter Four Self-Test 


1. You havea list of ten people that you frequently call on the telephone. Write a 
program that will input their last names and seven-digit telephone numbers from 
the keyboard. Include a section that will save the names and phone numbers in a 
cassette data file. 


2. Write a program to input the cassette data file of Problem 1 and display the 
names and corresponding phone numbers. 
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3. Write a program to search the file created in Problem | and print only the name 
and phone number of the name that is input. 


4. Write a program similar to the solution to Problem 3. Only this time, input the 
phone number desired and print the name and phone number. 
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5. Adda section to your (or to our) solution to Problem 2 that will let you search for 
a name, delete that name and phone number, and then move all names that follow 


the deleted name up one position. 


Answers to Chapter Four Self-Test 


1. Your variables, FOR-NEXT parameters, line numbers, format, etc. may be dif- 


ferent from our solution. Ours is merely given as a guide. 
19 FOR Z=191 TO 119:Y=z+19 
29 INPUT ''NAME?'';A$(Z) 
39 INPUT ''PHONE NUMBER?'';A(Y) 


49 NEXT Z 


5@ PRINT #''PHONE #'';A(1@1) 


2. Again, your program may be different. Try yours and ours with the file created in 


Problem 1 to see if they work. 


19 INPUT #''PHONE #'';A(191) 
2Q FOR Z=191 TO 119:Y=Z+19 
30 PRINT A$(Z),A(Y) 


49 NEXT Z 


3. Weare using the phone file data from Problem 1. 
1@ INPUT #''PHONE #'';A(1@1) 
29 INPUT ''NAME DESIRED?'';X$ 
39 FOR Z=191 TO 119 y=z+19 
49 IF A$(Z)=X$ PRINT A$(Z),A(Y) 


5Q NEXT Z 


4. 1Q INPUT #''PHONE #'';A(191) 
29 INPUT ''PHONE # DESIRED?''; 
39 FOR Z=191 TO 119:Y=Zz+19 
49 IF A(Y)=P PRINT AS$(Z),A(Y) 


5% NEXT Z 
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5. This is the way we did it: 


19 INPUT #''PHONE #'';A(191) From Problem 2, you 

-29 FOR Z=191 TO 119:Y=Z+19 can examine the names 

39 PRINT A$(Z),A(Y) to see which to delete 

ae NE from the printout (line 30). 

199 INPUT ''NAME TO BE DELETED?'';X$ 

119 FOR Z= 191 TO 119 ““——— Type name 

129 IF A$(Z=X$ GOSUB 299 Be eee 

tae eae z Search for the name 

299 W=Z Move all names, and 
219 FOR Z=W TO 199:V=Z2+1:U=Z+19:T=Z+11 numbers below the one 
229 A$(Z)=AS$(V):A(U)=A(T):AS(V)='' '': A(T) =P to be deleted up 
239 NEXT Z jevteates: 

249 Z=Z+1:RETURN one position. 


When you run the program, lines 10 through 40 allow you to look at the names 
and numbers in the file. Lines 100 through 130 conduct the search for the name that 
you want to delete. The subroutine (lines 200 through 240) deletes the requested 

- name, if found, and moves all the names up one position. The last position is blanked 


out. 
Here are the names and numbers in our phone file. 


ABLE 1111111 
BAKER 2222222 
CARTER 3333333 
DOUGLY 4444444 
EASY 5555555 
FARMER 6666666 
GOODE 7777777 
HARRY 8888888 
INMAN 9999999 
JONES 1212121 


This is what a typical run looks like from line 100 onward. 


NAME TO BE DELETED?_ 


To see whether the name had been deleted, we typed: 


RUN 29 


We typed FARMER 


The END of the program 


(so that the original file 
was not input again) 
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In order, we saw the file that was left. 


ABLE apse Nites te 


BAKER 222222 2%. 


CARTER 338 33530 


DOUGLY 4444444, 


EASY 55aDD 55. 


GOODE TTT FARMER is gone. 


mi 


HARRY 8888888 


All these moved up 


one position. 
INMAN (say 9999999. ) 


JONES C seme 7 eiatas) 


<— Last name is now blank 
with 0 as phone number. 
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Answers to Problems in Chapter 


1. Inventory Program Results 


Toy # Input Monthly New New Ending 
Inven. Sales Inven. Produc. Inven. 


SMO ANID UNBRWN 


= 


2. Inventory Check After Reloading Data 


SCUOMONDUNRWNHY 


— 


3. Three-Month Record 


Month Toy Starting Sales Produc. Final 
Number Inven. Inven. 
8 42 28 32 46 


ae aS 
— — 
SCOMWANINDUNAHRWN SCO ANDUN PWN 


FOR Y=111 TO 129 
X=Y-119 
PAUSE ''TOY #'';X 
INPUT #''INVEN.'';A(111) 


FOR Y=111 TO 129 

X=Y-119 

PRENT UUTOY Ge lpg ewe ANEY:) 
FOR X=Y-119 

X=Y-119 

PRINT ''TOY #'°'7X%;'2 '"7A(Y) 
PRINT #''INVEN.'';A(111) 


DATA FILES 95 


~O 


ON 


CHAPTER FIVE 


Trigonometric Functions 


The TRS-80 Pocket Computer has many functions that are built into its BASIC. 
Some of them that you have already seen are INT and ABS (Chapter 3). In this chap- 
ter, you will be working with the Pocket Computer’s trigonometric functions. You will 
learn to solve geometric problems using right triangles. The sides and the angles of a 
right triangle have special relationships that form trigonometric functions. Those 
available on the TRS-80 Pocket Computer are: 


e sine 

° cosine 

* tangent 
° arcsin rN 
® arccos = 3 

e arctan 


You have learned the major features of the TRS-80 Pocket Computer in the first 
four chapters. Therefore, Chapter 5 and those that follow are largely devoted to solv- 
ing a wide variety of problems. Those encountered in Chapter 5 involve: 


e A boat crossing a stream 

e A dog walking in circles 

e A ship passing a lighthouse 

e The height of a tall building 

e Surveying measurements 

e Area measurements 

e Measuring an immeasurable lake 
e Fourier series 


The solutions of all these problems are reached through the trigonometric functions of 
the Pocket Computer, plus a little brain work on your part. 
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Angle Measurement Systems 


A right triangle is composed of the following parts: 


A= angle 
a = side opposite A 
c b = side adjacent to A 
3 (c is also adjacent to A, but 
it has a special name.) 
c = hypotenuse 
b 


The TRS-80 Pocket Computer is ideal for solving unknown parts of right triangles. 
Some of the angle/side relationships are: 


Pee 

a 

Ce=a?+b? 
b 


1. Degree — an angular measurement based on the division of a circle into 
360 equal angles — each being one degree. 


sin A =a/c A =sin'(a/c) 
cos A = b/c A = cos~'(b/c) 
tan A =a/b A = tan“!(a/b) 


The Pocket Computer can work with three different angle-measurement sys- 


c 1 degree = 1/360 of a circle 


2. Radians —an angular measurement defined as the angle formed when the 
length of the radius equals the length of the subtended arc. 


tems. 


ON when are S = radius R, 
S <—_ LA=1 radian. 


TIT RAD 
There are 2 radians in a circle. ATL /47E 
There are 360 degrees in a circle. 
Therefore, 1 radian = 8° degrees, or 
1 radian = 57.2958 degrees. 
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3. Grad—1/100 of a right angle. 


B «— if LA=90° 
1 grad = 1/100 of LA 
or 
1 grad = 90/100 degrees 
= 0.9 degrees 


You may choose the angular measurement system that you wish to work in. 


1. To designate the degree mode type: 
DEG. 
DEGR. 
DEGRE. 
or DEGREE 


degree mode shown here 


> DEG 


2. To designate the radian mode type: 


RADIA. 
or RADIAN 


radian mode shown here 


3. To designate the grad mode type: 
GR. 
GRA. 


grad mode shown here 


NOTE: In all examples, 
the abbreviations must 
include the period. 
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We will usually be operating in the degree mode and will not show the angle 
mode on the display unless we change modes. 

The Pocket Computer has statements for sin, cos, tan, arcsin (sin~'), arccos 
(cos~'), and arctan (tan~') to aid in the solution of trigonometric problems. 


e sin (sine of an angle) is the ratio of the side opposite the angle to the hypo- 
tenuse (a/c). 

° cos (cosine of an angle) is the ratio of the side adjacent to the angle to the 
hypotenuse (b/c). 

e tan (tarigent of an angle) is the ratio of the side opposite the angle to the 
side adjacent to the angle (b/c). 

e arcsin (sin ') is the angle whose sine is specified. 

e arccos (cos ') is the angle whose cosine is specified. 

e arctan(tan ') is the angle whose tangent is specified. 


Boat Problem 


A girl in a boat is crossing a river 50 feet wide. The planned course runs perpendicular 
(at a right angle) to the shore from point A to point B, but the current carries her 
downstream at an angle of 13 degrees. 


How far downstream is her destination (C) from the point she was steering for 
(B)? 
How far does the boat travel (from A to C)? 


HINT: In solving problems of this type, always draw a picture first. If you can sketch 
the conditions given, the problem is half solved. 


j : 
b = 50 ft. i } 
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Use the calculator mode of the Pocket Computer to compute the distances. 
Write your answers in the box. 


Which trig functions did you use: 
1. to get BC? 


2. toget AC? 


Solution to the Boat Problem 
To solve a problem of this type, pick out one of the trigonometic function where two 
parts of the triangle are known. In this problem you know that side b is 50 feet. You 
also know that angle A is 13 degrees. You want to find side a. Therefore, you would 
pick the tangent function. 

tan 13 degrees = a/50 feet 


or 


a = 50 X tan 13 degrees 


ENTER 


11.54349956 


feet downstream BC 


To find side c, pick the cosine function. 


cos 13 degrees = 50 feet/c, or c = 50/cos 13 degrees 
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On the computer 59/COS13_ 


ENTER 


S12 3529539 


feet traveled AC 


Of course, you should check your solutions each time a problem is solved. 


Check the solutions: 
c= \/50?+ 11.5434" 


On the computer (50 A24+11.5434 A2)_ 


ENTER 


51.31529324 


Pretty close 


Another way to check the solution is by the known angle, 13 degrees. To check your 
result for side a, use the inverse trigonometric function for known angle A and known 
side b. That would be the arctan. You can also check the result for c by using the 
known angle A and the known side b. That would be the arccos. 


Angle A = arctan(a/b) 
Angle A = arccos(b/c) 


computed side 
known side 


On the computer ATN(11.5434/5@) 


12. 9999896 OPES 


Pretty close 
to 13 degrees 
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known side 
computed side 


On the computer ACS (59/51.3152) 


ENTER 


12.999997394 
eee Very close 


again 


Walking The Dog Problem 
A man is walking his dog in a circle. The dog is on a 25-foot rope. The man walks ina 
circle with a radius of 4 feet. The dog keeps the rope taut as he walks. 
After walking through a 125-degree angle, how far has the dog walked? 
How far has the man walked? 


HINT: Think the problem through in radians. For each radian, the arc length walked 
equals the radius. We have drawn the problem for you. 


After 20 trips around the circle, how far has the man walked? 


The dog? 
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Solution to the Dog Walk Problem 


For each radian, the dog walks a distance of 29 feet, the same as the radius of his cir- 
cle. 


4 ft. 25 ft. 


Remember, a radian is approximately equal to 57.2958 degrees. Therefore, for 125 
degrees, the dog walks (125/57.2938 radians) X (29 feet per radian). 


125757 22958%:295— 


ENTER 


The man walks: 


ENTER 


8.72664314 


After 20 trips around the circle: 


The man has walked: 2* 7p *4*2G_ 


592.6548246 
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3644.247478 


Lighthouse Beacon Problem 


A ship at sea sights a lighthouse beacon at an angle of 16 degrees from the ship’s head- 
ing. The ship maintains the same heading for 20 miles, and then takes a second sight 
on the lighthouse. This time the angle is 32 degrees. 

How much farther will the ship travel before it is directly opposite the light- 
NOS 61a ae eS 

How far from the lighthouse will the ship be at that time? 


Make a sketch here 


Beacon — 


HINT: Set up two separate solutions; one for the 16 degree angle and one for the 32 
degree angle. Use two variables for the unknowns. Solve the two variables for 
one unknown, then solve for that variable first. Then work on the second vari- 


able. 
Solution to the Lighthouse Beacon Problem 
Our sketch 
Beacon 
0 
y=? 
ca 
Sareea as RR Se eT a aSnip 


x=? 20 miles 
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y/x + 20 = tan 16 y/x = tan 32 
(x+20)#tanl6 = x*tan 32 
x = —20*tan 16 


tan 16—tan 32 


On the computer —2Q*TAN16/(TAN 16—TAN32) 


16.96996192 


about 17 miles 
to travel 
y = x*tan 32 


On the computer 16.96996192*TAN32 


19.59838525 


A 


about 10.6 miles 
from beacon 
Check of solution 


y = (x + 20)*tan 16 


On the computer (16.96996192+28)*TAN16 


19.59838528 


ql 


Very close 
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Building Height Problem 


A surveyor on the ground sights the top of a building through an angle of elevation 
measuring 33 degrees. He then moves back 50 feet and resights the top of the building 
at 31 degrees. The eyepiece of the transit is 4 feet from the ground. 

How high is the building? 


Draw a sketch here 


Building 


Solution to the Building Height Problem 


Our sketch: 
4 ft. 
LD ae 
50 ft. >| hari react ae eenieg : 
x/y Stans: x/y + 50 = tan 31 
x = y#tan 33 and SUMAN ST > 
TAN 33 — TAN 31 
50*TAN 31#TAN 33 


Therefore, x = —>An133—TAN 31 
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On the computer (59*TAN31*TAN33) /(TAN33 — TAN 31) 
This won’t all fit on the display, but 
after it is typed in you see: 


31*TAN33) /TAN33—TAN31)_ 


Then, when you press ENTER: Building — transit height 
in feet 


( 491.8823574 ) 


401.8823574 + 4 = 405. 8823574 


Ve height of building 
Check of solution in feet 


y = distance from building to first sight 
= x/tan33 


On the computer 491.8823574/TAN33_ 


y = x/tan31 — 50 
both the 
same 


Sighting distance = hypotenuse 
= x/sin33 
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hypotenuse = \/ x’?+ y’ 


\/(401.8823574 2+ 618)8445617 2) 


737.8875393 


Both methods check. 


River Problem 


One surveyor, labeled S,, places a stake on one side of a river. He then walks along the 
side of the river to a point 125 feet from the stake. He measures an angle of 65 degrees 
from the original stake to a second surveyor on the other side of the river. The second 
surveyor {(S,) measures an angle of 50 degrees from the first surveyor to the stake, X. 
How far apart are the two surveyors? 

How far is the second surveyor from the stake? 


= 65° = 
TT 3. 125 ft. OT 


Our solution 


Distance between two 


i nd surveyor 
surveyors = a+ b ——_ Distance from 2nd y' 


mo to stake = d. 
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A quick solution on the Pocket Computer can be found by arranging the par- 
tial solutions in this order: 


a/125 = cos65 a = 125*cos65 <— finda 

c/a =tan65 c=a*tan65 <— thenb 

c/b = tan50 b=c/tan50 <— thenc 

b/d = cos50 d = b/cos50 —<~— thend 
On the computer 125*COS65 


52.82728272 


p 


Press * and type tan65 


52.82728272*TAN65 


113.2884734 c 


Press / and type tan50 


113.2884734/TAN5Q 


o 


95.96931625 


Press / and type cos50 


95 .96931625/COS5B 


147.887599 


a+ b= 52.83 + 95.06 = 147.89 feet apart (two surveyors) 
d = 147.89 feet (second surveyor from stake) 
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Checks for solutions 


Va? +c? = 125 


On the computer V (52.83 24+113.29 2) 


Very close 
b? + c= d = 147.887599 


On the computer V(95.96 24+113.29 2) 


_147.8885651 


Close again 


Equations for General Triangles 


Equations for triangles that have no right angles can be derived from the right triangle 
angle/side relationships. Such relationships are given following the sketch of this gen- 
eral triangle. 


Sides and angles for the general triangle may be found from the group of equations 
called the Law of Cosines and the Law of Sines. 


Law of Cosines Law of Sines 
a= b’+c’?—2bcecosA sin A = sin B = sin C 
b= \/a?+ c? — 2ac cos B “a b- c 
c= )/a’?+b*— 2abcosC 
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Here are three different formulas that may be used to find areas of triangles. 
Two angles and a side known: 


a? sin C sin(180 — (A+ C)) 


se Asin A 


Two sides and included angle known: 
Area = tab sin C 
Three sides known: 
Area = \/s(s — a)(s — b)(s — c) 


wheres = 4(a+ b +c) 


With these equations, you are equipped to solve all kinds of problems involving 
triangles. Use your Pocket Computer and the equations on the following problems. 


The Irregular Lot Problem 


My friend, Jennifer, owns an irregular shaped lot. She has a map that shows the 
boundaries and the length of each of the four sides. She wants to advertise the lot as 
for sale. However, the wording in her deed is so obscure that she can’t make much out 
of it. This is the shape of her lot. 


130 ft. 
125 ft. 113 ft. 


85 ft. 


Jennifer put stakes at all four corners of her lot and measured the angles. Can 
you help her find the area of the lot? Here are the measurements: 


130 ft. 


125 5h: TiS. 


LS* (| 


85 ft. 
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Solution to Irregular Lot 


Here are two ways to solve the problem. Maybe you can think of others. In both solu- 
tions the lot is divided into two triangles, as shown. 


D a'= 130 ft. 
Cc 
c’= 125 ft. a=113 ft. 
49.88° ia 
B 
A c= 85 ft. 


Solution 1 


Using the lower right triangle first: 


Area of AABC = ac sin B 


Area of AABC 


=~ 4784 sq. ft. 
Use the law of cosines to solve for side b. 


b= \/a?+ c? — 2ac cos B 
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Computer shows V(113 2485 2-2*113*85*C0S95) 


side b = 147 ft. 


Then solve for the triangle in the upper left. 


a’= 130 ft. 


c/= 125 ft. b= 147 ft. 


Use the three sides to solve for the area of AACD. 


s= h(a’ t+b+c’) 


Area of AACD = \/s(s—a’)(s—b)(s—c’) 


Computer shows S=.5*(139+1474+125) 


S=201 


(S*(S—139)*(S—147)*(S—125) 


7652.9853 


Area of AACD = 7653 sq. ft. 


Total area of lot = area of AABC + area of AACD 
~4784 + 7653 
=~ 12437 sq. ft. 
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Solution 2 


Area of AABC = 113? (sin 95)(sin(180—(49.88 + 95)) 
2 sin 49.88 


Computer shows 1132*SIN95*SIN( 189(—(49.88+95) )/(2*SIN49.88) 


— Area of AABC 


=v 4785 sq. ft. 


Solving for side b from Law of Sines: 


b a 


— — 


sin B sinA 


asin B 113*sin 95 


~ sinA sin49.88 
Computer shows 113%SIN95/SIN49.88 


side b = 147 ft. 
Angle A’ 
a”? = b? + c? — 2be’cos A’ 
cos A’ = b? +c? —a” 
2be’ 


a'= 130 ft. 


c'= 125 ft. 


TRIGONOMETRIC FUNCTIONS 


115 


Computer shows ACS((147A24+125A2-13GA2) /(2*147* 125) ) 


56.49587622 


Bind A’ = 56.4 degrees 


Area of AACD = 
Yebe’sin A’ 


Computer shows .5*147*125*SIN56.4 


a. Area of AACD 


~~ 7652 sq. ft. 


Total area of lot = area of AABC + area of AACD 
= 4785 sq. ft. + 7652 sq. ft. 
= 12437 sq. ft. 


Both methods give the same total area. 


Width of Lake Problem 


A surveyor wants to measure the width of Lake Deep Blue. He does it by measuring 
between points A and B, which are on the shore. He sights an angle of 105 degrees be- 
tween the line AB and one end of the lake. He sights an angle of 125 degrees between 
line AB and the other end of the lake. He also measures from one end of the lake to 
point A and from the other end of the lake to point B. Using these measurements, as 
shown in the following sketch, and your Pocket Computer, find the width of Lake 
Deep Blue. 
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Solution 1 


First we drew the following diagram, filling in the information given. 


125 ft. 115 ft. 


A 350 ft. B 


Solving for line segment AC, we have: 


AC = \/350? + 115? — 2(350)(115)(cos 105) 


On the computer V (358A24+115A2—-2*358*115*COS 195) 


po AC = 395.7 ft. 


Solve for angle x by using the inverse cosine function. 
x =arccos((350? + 395.7? — 115?)/(2*350*395.7)) 
y=125-x 


On the computer ACS((35@ 2+395.7 2-115 2)/(2*359*395.7) 


16.39219452 


fie xX =~ 16.3 degrees 


y = 125 — 16.3 = 108.7 degrees 


Solve for line segment DC by using the law of cosines. 


DC = \/125? + 395.72 — 2*125*395.7*cos 108.7 


On the computer V125A24+395.7A2—2*125*395.7* COS198.7 


(et aR DC ~ 451.6 ft. 
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Solution 2 (Check for Solution 1) 


DB = \/125? + 350° — 2(125)(350)(cos 125) 
On the computer V/125A2+35G8A 2—2* 125*358% COS125 


433.9593867 


i 


DB ~ 433.95 ft. 


zZ = arccos((350? + 433.95?—1257) /(2*350*433.95) 
w=105-z 


On the computer ACS ((358A2+433.95A2-125A2)/ (2*359 *433.95)) 


13.64815922 


| 


z =~ 13.65 degrees 
w = 105 — 13.65 = 91.35 degrees 


DC = \/433.95? + 115? — 2*115*433.95*cos 91.35 


On the computer V/(433.95A24115A2—2*115*433.95* COS91.35) 


451.5497793 


DC ~= 451.5 ft. 


Both solutions give results within 0.1 feet. 


Radii and Other Measures 


Your TRS-80 Pocket Computer measures angles in two ways. The first way is the de- 
gree measure method that you learned in school. If you type the command DEG. ina 
program, the computer will use the degree measure until you tell it to change. 
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90 DEG 
60 DEG 


30 DEG 


180 DEG 0 DEG 


The second way of measuring angles is called radian measure. 


2 RAD 1 RAD 


3 RAD 
PI RAD O RAD 


Radian measure is used in the mathematical sciences. The radius of the circle is used 
as a measuring tape to measure along the arc of the circle. It takes slightly over 3 rad- 
ius lengths to get halfway around the arc of the circle. In fact, it takes exactly pi= 
3.14159... radius measures to get halfway around the arc of the circle. That’s where 
pi comes from. : 

Many beautiful and important formulas from mathematics and science depend 
on radian measure. One of the most surprising and important formulas was discovered 
by Isaac Newton. 


Newton’s Sin 


Isaac Newton discovered this formula 350 years ago by exceedingly ingenious meth- 
ods. It relates the SIN(X) function to an unending sum of powers of X. 
sin(X) = XA1/1 — XA3/(3*2*1) + KA5/(5*4*3*2*1) 
— (you can guess the next terms) 


‘The Pocket Computer should be set to the RAD measure for angles before com- 
puting SIN(X). Just put the command RAD. as a program line. Now that you know 
so much about this wonderful formula, perhaps you’d like to check that it really works. 
Write a program that takes the number X as input and computes the partial sum out 
to the term X/A21/(21*20*. . .*2*1). The program should print out both SIN(X) and 
S. 
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Hint to Newton’s Sin 


The chief difficulty is the long and complicated sum S. S has too many terms to fit 
onto one line. What to do? An accumulator saves the day. We can start S empty, and 
then keep adding new terms into it. 

S=0 

S=S + X 

S=S — XA3/(3*2*1) 
And so on, until done. Can we use the pattern of the formula to make the job easier? 
Each new term can be gotten from the one before it. 


Solution to Newton’s Sin 


Here is the crude but simple version: 


1@ RAD 

20 S=9 

39 INPUT X 

49 S=S + X 

5@ S=S — XA3/(3*2*1) 

68 S=S + XA5/(5*4*3*2*1) 

79 S=S — XA7/(7*6*5*4*3*2*1) 
ETC 

149 S=S + XA21(21*29*19* ETC *2*1) 
15% PRINT SIN(X), S 

168 GOTO 19 


You may have noticed a few ETCs scattered about the previous program. Itisa 
bit long and cumbersome. Let’s see if we can avoid writing all those lines. Observe that 
each new term differs only slightly from the term before it. The sign changes. The 
power of X increases by 2. The denominator gets 2 more factors. 

Suppose we had gotten as far as the order 3 term —xA3/(3*2*1). To get the next 
term, we multiply by —1*X*X and divide by 4 and by 5. We get +xA5/(5*4*3*2*1). 
Here is a program based on this observation: 


199 ''TOP'! 

119 RAD.: REM **REM SET RAD MODE 

129 S=Q: REM ** START ACCUMULATOR 

139 N=1: REM ** START EXPONENT COUNTER 
149 INPUT X 

158 T=X : REM ** FIRST TERM IS X 


29@ ''ADDTERM'! 

219 S=S+T 

229 N=N+2: REM ** INCREMENT EXPONENT 
239 REM: CHECK IF DONE 

249 IF N>21 THEN ''PRINT'' 

259 T=T*(—1)*X*X/(N*(N-1)) 

269 GOTO ''ADDTERM''! 


399 ''PRINT!' 
319 PRINT SIN(X),S 
328 GOTO ''TOP'' 
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Square Wave 


The SIN and COS functions on your Pocket Computer are remarkably useful. The 
numbers they generate can be used to describe the vibration of strings, oscillations in 
electric lines, and other such matters. If you’ve never watched the sin numbers oscil- 
late, then here is your chance. Try this little program and watch the Y numbers rise 
and fall as T(time) changes. 


19 DEG: REM ** SET DEGREE MODE 
29 T=9 

39 T=T+1¢ 

49 Y=SIN(T) 

58 PAUSE Y 

69 GOTO 3g 


You can make the number oscillate twice as fast by changing line 40 to this: 


49 Y=SIN(2*T) 


The frequency of the oscillations has now doubled. 


The great scientist Baron Jean Baptiste Joseph Fourier discovered an amazing fact 
150 years ago. He found that any kind of changing number pattern can be built by 
adding sin and cos functions together. Here is an example of such a function built out 
of SIN functions of various frequencies: 


Y = sin(1*T)/1 + sin(3*T)/3 + sin(S*T)/5 + sin(7*T)/7 + (You can guess the rest) 


The numbers (Y) that are generated by this complicated formula are surprising. 
Write a program which takes T as input and then computes and prints Y. Since the 
formula goes on forever, it is best to stop somewhere. Compute the sum of the terms 
out to SIN(99*T) /99. 


Hint to Square Wave 


It looks like an accumulator is needed to collect the terms. The general term has this 
form: 
sin(N*T)/N 


Where N increases by two each term. Would a FOR-NEXT loop do it? 
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Solution to Square Wave Problem 


1Q@ RADIAN 
20 Y=G 
3Q INPUT T 


49 FOR N=1 TO 99 STEP 2 


5Q Y=Y+SIN(N*T) /N 


6@ NEXT N 
7Q PRINT Y 
88 GOTO 19 


The numbers are surprising. You might have expected that the numbers would vary 
widely. In fact, they vary hardly at all. If you graph the numbers, you will get a square 


wave that looks like this: 


Y 


What Fourier discovered was that by putting SIN and COS functions together in the 
previous way, it is possible to get any function, with any graph. This lies at the heart of 


modern communication and systems analysis. 


Summing up Chapter Five 


Trigonometric functions were used in this chapter to solve problems involving angles 


and sides of geometric figures. 


Pocket Computer Trigonometric Functions 


Accepted 
Abbreviations 


Function 


Remarks 


Side opposite an angle 
hypotenuse 


Side adjacent to an angle 
hypotenuse 


Side opposite an angle 


Side adjacent to an angle 


The angle whose sine is 
specified 


The angle whose cosine is 
specified 


The angle whose tangent is 
specified 
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Note: Periods in abbreviations must be included. 
Other new items: 


| Angle Accepted Remarks 
Measure Abbreviations 


DEGREE DEG. An angular measure = 1/360 of 
DEGR. a circle 


DEGRE. 

RADIAN RA. An angular measure. One radian 
RAD. is the angle which intercepts an 
RADI. arc equal to the radius of the 


RADIA. 
GR. 
GRA. 


circle. 


An angular measure equal to 
1/100 of a right angle (0.9 degree) 


. Equations used: 


¢ Law of Cosines: 


a= \/b’?+ c?— 2bccosA 
b= \/a’?+ c?— 2accos B 
c= \/a’? + b?— 2abcos C 


¢ Law of Sines: 
sinA sin B sin C 


e Areas of triangles: 
Two angles and a side known: 


a’sin C sin(180 — (A + C)) 


cee 2sinA 


Two sides and included angle known: 
Area = “ab sin C 


Three sides known: 


Area = \/s(s—a) (s—b) (s—c) 


wheres = 4(a +b +c) 
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Chapter Five Self-Test 


1. 


A year-round garden is to be planted near a retaining wall, 8 feet tall. On Decem- 
ber 21, the shortest day in the year, the angle of elevation of the sun at 5 PMis 
18.5 degrees. A shadow from the retaining wall is cast toward the garden. We 
want to keep the sun on the garden as long as possible. To keep the sun on the gar- 


den until 5 PM of December 21, how far east of the retaining wall should we plant 
the garden? 


Qe Se ee 
wall > garden 


A ship sails due west for 120 miles from San Diego. Then it changes direction 24.7 
degrees, from west to south. It sails 75 miles in the new direction. At that time, 
how far is it from San Diego? 


Draw sketch here. 
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3. The angle of depression from the top of a building (point A in the figure) to point 
C is observed to be 63 degrees. From a window four floors (36 feet) directly below 


point A, the angle of depression is 55 degrees to point C. How high is the build- 
ing? 


4. A farm, bounded by two roads, has the following dimensions: 
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A new road is going to cross the farm, as shown here: 


What are the areas of the two remaining parts of the farm after the new road goes in? 


Area of AA = 


Area of AB = 


Answers to Chapter Five Self-Test 


1. 


8= 18.5° 
B ft. = = tan 18.5 


x 


The garden should start at least 23.9 feet from the wall. 


2. 120 miles 
San Diego 


Angle X = 180 — 24.7 = 155.3° 
Distance from San Diego = 
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On the computer V(75A24+128A2—2*75*129*COS 155.3) 


The ship is approximately 191 miles from San Diego 


C= 180—(145 + 27) =8° 


sin 8 sin 27 


— =cos 35° 
x 


On the computer 36*SIN27/SIN8 
(ee) ae 117.4349291 i) 


We 


Type *COS35 
Waal See 
y 


The height of the building is 36 + 96 = 132 feet 
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4. From the original farm: 


550 ft. 


500 ft. 


side x = \/400? + 500? — 2(400)(500) (cos 115) 


On the computer VV (49BA2+59BA2— 2*499*599*COS115) 


76%.9515784 


X = 761 feet 
Solving for the semiperimeter of AA, we have 


s = '2(700 + 550 + 761) = 1005.5 feet 


Area of AA = \/s(s — 700)(s — 550)(s — 761) 


On the computer V(1995.5*(1995.5-79B)*( 1995.5-559)*(1995.5-761)) 


Area of AA = 184961 sq. ft. 
The area of triangle B is found next. 
Area of AB = 42(475)(375)(sin 115) 


On the computer .5*475*375*SIN115 
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CHAPTER SIX 


Operation Time, Logic Functions, and 
Binary Bins 


To get the most efficient use of your Pocket Computer, you should investigate the time 
it takes to perform its many operations. The early part of this chapter is devoted to 
timing events that take place in the computer. 

Quite often, a programmer would like his or her program to deviate from its nor- 
mal sequence of execution when the outcome of two or more separate events take on 
certain conditions. By using the outcome of certain logic functions, this can be done. 
We will show you how to program some logic functions that are not built into the 
Pocket Computer. 

Finally, we will discuss the binary number system and some of its characteris- 
tics. There is a close connection between logic functions and binary numbers. 

In this chapter you will learn: 


¢ to time Pocket Computer BASIC statements as they are performed; 

e toshorten problem solution time by careful choice of methods and varia- 
bles used; 

e touse the Pocket Computer logic statements, and some others that you can 
program; 

e how to use the binary number system with its relationship to logic. 


Operation Time 


How fast is the TRS-80 Pocket Computer? The only way to find out is to have it doa 
task and time how long it takes. But short tasks are completed so fast that you can’t 
distinguish between the start and the end of the task. To help out, you can put a BEEP 
at the beginning of the program that performs the task and put another BEEP at the 
end of the program. Try timing this program which adds two numbers and stores the 
result between BEEPS. 
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19 BEEP(1) 
29 X = 243 
39 BEEP(1) 


Did it go by too fast to time? The BEEFPs take longer than the addition. 

You can slow the computer down by making it do the same task 500 times. Try 
the following program. Use a clock with a second hand to measure how long it takes 
the computer to run through the empty FOR-NEXT loop 500 times. The FOR-NEXT 
loop is called “empty” because the computer doesn’t do anything between the FOR 
statement and the NEXT statement. (We are going to use this fact later to get time 
statements that we insert in the loop.) The FOR-NEXT loop will then no longer be 
empty. Time the following program from the first BEEP to the second BEEP. 


Notice: we 1 BEEP(1) 
left out 29 FOR X = 1 TO 59% 
: a AD NETO 
line 30 efeaacek 


We purposely skipped line 30. After we establish the running time for the empty loop, 
we'll insert some other statements that we want to time. 

How many seconds does it take the computer to run the FOR-NEXT loop 500 
tines) eas 
We measured 90 seconds between BEEPs. 

Each second is equal to 1000 milliseconds. If it takes 90 seconds to do 500 empty 
FOR-NEXT loops, how many milliseconds does it take to do a single loop? 


Ours took: 90 xX 1000 
500 
Now, replace X in the previous program with the variable, A. 


= 180 milliseconds /loop 


19 BEEP(1) 
29 FOR A = 1 TO 599 
Change ———————— 49 next a 


59 BEEP(1) 


Run the revised program and time it again. What happened? It took longer this 
time. Why should the computer slow down when A is used instead of X? How long be- 
tween BEEFPs this time? 


Ours took 116 seconds this time, or 232 milliseconds per loop. 
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Remember, variables A through Z are assigned to the 26 fixed memories in this 
way: (See Chapter 2 for a refresher if needed.) 


A to memory | 
B to memory 2 
C to memory 3 


X to memory 24 
Y to memory 25 
Z to memory 26 


The TRS-80 Pocket Computer searches for the variables from the last (Z) to the first 
(A). Therefore, it takes less time to access the variable X than the variable A. You 
should remember this if you wish to speed up programs that access a variable many 


times. 


Use letters at the end of the alphabet for variables that 


are often accessed in a program. 


Go back to X as the variable in our timing program and find out how long it 
takes to load a number into the memory assigned to the variable A. 


19 BEEP(1) 
29 FOR X = 1 TO 599 

30 A. store | into A 500 times. 
49 NEXT X 

59 BEEP(1) 


Remember, it took approximately 180 milliseconds to execute the FOR-NEXT 
loop when there was no other operation taking place. Now we have one operation (A = 
1) inside the loop. It took 90 seconds to perform the empty FOR-NEXT loop 500 
times. Now you’ll see how long it takes when one operation is added. Run the program 
and time it. 

a. How long did it take between BEEPs? 

b. 500 empty FOR-NEXT loops took 

c. Therefore, placing 1 into memory A 500 times ne 
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d. To place 1 in memory A once took 


a. 129 seconds 
b. 90 seconds 


c. 39 seconds for 500 stores 


d. 39 X 1000= 78 milliseconds to assign 1 toA 
500 


Now let’s see how long it would take to do the same thing in memory location Z. 
Change line 30 from: 
A=1to30Z=1 
Run the program again and time it. 
a. What is the total time between BEEPs? 
b. What is the total time for 500 operations of Z = 1? 
c. Time for one operation of Z = 1? 


a. 121 seconds between BEEPs 
b. 31 seconds for 500 operations 
c. 62 milliseconds to assign Z = 1 

Here again, you see that the computer can work with variables at the end of the 
alphabet faster than it can with variables at the beginning of the alphabet. 

Which arithmetic operation can be performed fastest (addition, subtraction, 
multiplication, or division)? To find out, change line 30 of the program, time the 
FOR-NEXT loop, and compute the time for each operation, as before. 


500 loops empty loop | 500 operations 
30Z=3+2 


30 Z=3 *2 


30 Z=3/2 


one operation 
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Using the previous technique, time the following operations. Fill in the table with the 
time, in milliseconds, for each operation. You know the answers to the first five opera- 
tions from the previous experiment. 


TIME TABLE 


GOSUB 100... RETURN 


OPERATION TIME, LOGIC FUNCTIONS, AND BINARY BINS 133 


TIME TABLE eee 
ae is |g a Se 

Z=1 
Z=3+2 C 
Z=3-2 : 
Z=3*2 
Z=3/2 
Z = (2<3) 
GOSUB 100... RETURN 
GOTO 40 : - =F wa 
Z=SIN 1 = : 166 MWA 


Z=COS 1 


Z=TAN 1 
Z=yV1 
Z=2/A3 
Z=1.0GA 
Z=EXP 1 
IFO THEN 1 


Problem # 2 


All of the questions below relate to the speed of your computer’s operation. 


Sigh 


moan 


a. Which computation would run faster: 2*2*2*2*2 or 2/\5? 


b. Does the size of a number affect how fast addition or multiplication oper- 
ations are performed? 

If so, how? 
Which takes longer, GOTO 1 or GOTO 100? 

d. How long does it take to fill memories 31 through 80 with the number 1? 


© 


e. Which works faster, \/3 or 3.5? 
f. Which works faster, 1/3 or 3\— 1? 


2*2*2*2*2 is faster 

Yes 

The larger the number, the slower the operation is performed. 
GOTO 100 takes longer 

46 to 47 seconds, using a FOR-NEXT loop 


\/3 is faster 


1/3 is faster 
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Logical Comparisons 


There will be times when you will want to check whether a number is big enough, or 
small enough, to perform a specific operation. There will also be times when you will 
want to check whether two strings are the same. The Pocket Computer has several log- 
ical comparison functions for this purpose. These functions compare numbers, or 

( strings, for size or equality. If the condition is met, then the value of the function is 

n equal to 1. If the condition is not met, the value of the function is equal to 0. 

Here are a few logical comparisons. Write down what you think the value of 

each expression will be (0 or 1). Write 0 if the statement is false. Write | if the state- 
ment is true. 


SNAAWRWN 


Se aeN AHERN 


. Howis A related to (A = 0)? 


. What would PRINT (5 = 3) do? 


3=2 
2=2 


. 4< 5 (4 is less than 5) 


Deal 
5> 1 (Sis greater than 1) 
7>9 


. 3 => 2 (3 is greater than or equal to 2) 


5<5 
4 <> 5 (4is not equal to 5) 


»-4<>4 
al 
12. 


(2 <5) <(5>2) Pte Ge 
What would this do? IF (3 > 2) PRINT “GREATER THAN” 


0 (since 3 = 2 is false) 

1 (since 2 = 2 is true) 

1 (since 4 is less than 5) 

0 (since 2 < 1 is false) 

1 (since 5 is greater than 1) 

0 (since 7 > 9 is false) 

1 (since 3 is greater than, or equal to, 2) 
1 (since 5 is greater than, or equal to, 5) 
1 (since 4 is not equal to 5) 

0 (since 4 < > 4is false) 
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11. 0 Let’s take this one in pieces. 
(2 < 5) has a value of | (it is true) 
(5 > 2) has a value of 1 (it is true) 
(2 < 5) <(5 > 2) has the same value as 1 < 1 which is false. Therefore, the 
complete expression is false and has value 0. 
12. This prints GREATER THAN (since it is true that 3 > 2) 
13. If A=0, then (A = 0) is true — takes the value of 1. 
IF A = 1, then (A = 0) is false — takes the value of 0. 
In either case, the value of (A = 0) is the opposite of the value of A. 
14. 0 (since (5 = 3) has a value of 0) 


The Truth and Nothing but the Truth 


Here are two problems involving the logical comparison functions AND and OR. The 
AND function will be true only if the two conditions being ANDed are both true. Oth- 
erwise the value of the AND function is false. The OR function will be true if either 
one of the conditions being ORed is true (or both are true). It is false only when both 
conditions are false. 


Problem # 1 


Write a program which takes the values of A and B as input. In each case, the pro- 
gram is to print the corresponding output values (A AND B). Don’t use any BASIC 
statements except INPUT, PRINT, GOTO, and the logical operators <, >, and =. 


19 INPUT A,B 
29 PRINT (A = @)<B 
39 GOTO 19 
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Problem # 2 


Write a program which takes the values of A and B as inputs and prints out the value 
of the logical function A OR B. Use the same BASIC statements and operators as in 
Problem # 1. 


Output 


A OR B 


1 INPUT A,B 
2@ PRINT (A>B) <>B 
39 GOTO 19 


Binary Bins 


One of the things that computers are reputed to be good at is counting in the binary 
number system. This is because they are constructed to work with binary numbers. In 
fact, that’s the only kind of numbers that the computer can work with. Someone else 
had to write an interpreter to interpret BASIC commands and decimal numbers into 
binary language that it can understand. 

Here are the first few positive numbers in binary notation. 

0, 1, 10, 11, 100, 101, 110, 111, 1,000, .. . etc. 

If your car had a binary odometer, it would work just like the binary counter that we 
will construct a little later by a computer program. First, though, let’s talk a little 
more about binary numbers. 

You could make a binary counter using stones and boxes. 


Line up eight boxes in a row. 


ene 52? Be 3s sie 
each box numbered (computer 
| | | | | | | | | people like to start numbering 
with zero) 
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Put a stone in the first box. 


That’s one stone counted. Now binary boxes hold, at most, one stone. Suppose you 
wanted to count another stone: There’s no room in the first box. That’s OK. The next 
box to the left counts twice as much as the first box. The rule is this: 

If any box already contains a stone, and you are trying to 

put another stone into the box, DON’T. Instead, empty 

that box and carry one stone over to the next box on the 

immediate left. 

Sounds like fun, doesn’t it? Here’s how the boxes look as two stones are counted. 


Sti CMake) era”) aes Il 0 


Ti 6 5 4 3 2 1 0 7 6 
NO, NO! Not this se oe] This is how it should look 


The second box counts for two. To count three things is easy. Just add another 
store. There is room for it in the first box. Always work from right to left. If a box is 


empty, you can put ina stone. If it has a stone in it, empty it and take a stone to the box 
on the immediate left. 


186 ot ae Se 0 a two and a one equal three 


What happens if you try to count a fourth thing? You try to add another stone to 
the first box. No room — there’s already a stone there. Remember the rule, empty 
that box and carry one stone to the next box on the left. But the next box is full. Empty 
it and carry one stone to the next box on the left. There is room this time. Put the stone 
in that box. Here is how the final result for four things looks. 


[isle she Ie gle 


Ty PaO a 7 3 RTS 0 
_ its boris forfour things 


If we let 00000 stand for 5 empty boxes and 11111 stand for 5 full boxes, then 
what number does 11111 represent? If you said 31, then you know how to count in the 
binary number system. 
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Binary Counter Problem 


Write a program which prints out the binary numbers in order. The output should look 
like this: 


00000 
00001 
00010 
00011 


and so on until 


11111 


Hint 1 to Binary Counter 


The brute force method is to write out a series of 32 PRINT statements, one for each 
number. You can be cleverer than that. The first thing that you need to do is decide 
where to store the 5 binary digits. Let’s store them in memories A, B, C, D, and E. 
When you start, all the memories will contain 0. 

00000 

ABCDE 
To set the next number, you can add 1. Since E = 0, you can set E = 1 and print the re- 
sult. You might write this in BASIC like this: fe 

IF E = 0 LET E = 1: GOTO “PRINT 


The line labeled “PRINT” will do the obvious thing and print the result. The memo- 
ries A, B, C, D, and E would now look like this: 

OF 02080 

A= B°C; DE 
Next, repeat the process and add 1 to get the next number. To do this, check E. It is al- 
ready equal to 1. Remember the binary counter rule: Change the | toO and carry a 1 
to the box to the left. Here is how the process might look in BASIC: 

IF E = 0 LET E = 1: GOTO “PRINT” 

Ih B= 12 LER-Bs=-0 

IF D = 0 LET D = 1 : GOTO “PRINT” 

IF D=1LETD=0 

and so on 
Using this procedure, write a program to count and print from 00000 to 11111. 
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70 
80 
90 
100 
110 
120 
130 


a. WG A= Os BS 0: C= 82D = 19s BH GB 
29 ''PRINT!' 
39 PRINT A;B;C;D;E —<—__—_ You might use PAUSE here 


49 IF E = @ LET E = 1: GOTO ''PRINT'' 
59 IF E = 1 LET E = @ 

69 IF D = @ LET D = 1: GOTO ''PRINT'! 
70) fF. Da= (LET pDe= 

89 IF C = @ LET C = 1: GOTO ''PRINT'' 
ORThaCs—— ern Tey = 

199 IF B = @ LET B = 1: GOTO ''PRINT!! 
1G EER = enn. a9 

129 IF A = @ LET A = 1: GOTO ''PRINT!' 
139 IF A = 1 END 


Notice pattern in the program. Lines 40 and 50 look much like lines 60 and 70, 
lines 80 and 90, and lines 100 and 110. You can make the pattern more explicit by us- 
ing subscripted variables. Let’s change the names of the variables from A, B, C, D, 
and E to A(5), A(4), A(3), A(2), and A(1). 

With these changes you can use a FOR-NEXT loop to simplify the program. 
Lines 40 to 110 can be replaced to shorten the program to: 


iMieAN lying — Bit A 2) = FAS) Ae ACA) = Os A 5))) = i8 
29 ''PRINT!! 

3Q@ PRINT A(5);A(4);A(3);A(2);A(1) 

48 FOR Z = 1 TO 4 


5Q IF A(Z) = @ LET A(Z) = 1: GOTO ''PRINT!'! 
69 IF A(Z) = 1 LET A(Z) = G 
79 NEXT Z 

Hint 2 to Binary Counter 


Here is another method that you might use. Notice that adding | at the right-most 
digit starts a process of adding and carrying that procedes to the left. For example, 
suppose you wish to add a number X = | to the binary number 10111. 
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You get a digit of the result and possibly a carry to the left. That means you perform a 
similar addition of X = 1 to the next digit to the left. 


10111 
| ~—— the carry 
22220 1+1=10 


the result of first digit 


This add and carry process procedes to the left until you reach some position for which 
there is no carry. If there is no carry, then you are done. 


At each stage in this process, you compute two numbers: the digit of the result 
and the digit of the carry. Look at the process using the notation of the first solution. 

Suppose A(5), A(4), A(3), A(2), and A(1) represent the digits of a counter. Let 
X represent the carry. Initially, as you begin the process of incrementing the counter, 
X=1. 


A(5) A(4) A(3) AQ) AQ) 
Xx 


A(15) A(14) A(13) A(12) A(11) 
9 


You want to compute A(11) and a value for X to carry to the left. If A(1) and X have 
the same value, then A(11) = 0. If A(1) and X have different values, then A(11) = 1. 
We can say it this way in BASIC: 


IF A(1) ‘LET A(11) 


= X = 9 
IF A(1) <> X LET A(11) = 


1 


Write a program for a binary counter based on these hints. Use a FOR-NEXT 
loop to keep things moving. 


a. 10 
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14 Qe SS ae ie Save TE You may not need 
[SO eS o SRs Le ee this many lines, 
160 but we like lots 
170 of remarks 


a. 19 REM SET COUNTER TO @ 
20 FOR Z=1 TO 6: A(Z)=9: A(Z+19) =~: NEXT Z-~«———— Really cramming 
30 US PRIENT it in 
AG xXa—sal 
5@ PAUSE A(5);A(4);A(3);A(2)7A(1) 
69 FOR Z = 1 TO 6 
79 IF A(Z) = X LET A(Z+1Q) 
89 IF A(Z)<>X LET A(Z+1Q) 
99 X = X*A(Z) 
199 IF X = @ LET Z = 6: REM EXIT THE LOOP 


Gg 


119 NEXT Z 

129 REM TRANSFER RESULT A(Z+1) TO A(Z) Oié ock: 

139 FOR Z=1 TO 6: A(Z)=A(Z+1f): NEXT Z Your program may be quite different 
149. REM (CHECK LE DONE from this. Try yours and see if 


159 IF A(6) = 1 END 3 . 
168 REM GO DO IT AGAIN it counts correctly. If it does, 


17@ GOTO ''PRINT'! your program is OK. 


Here is yet another solution. By a judicious use of the logical comparison func- 
tions, you can simplify the program a bit more. This last solution is written in the form 
of a subroutine called “COUNTER”. The subroutine is initialized in line 20. It re- 
turns the binary digits in memories A(6), A(5), A(4), A(3), A(2), and A(1). When all 
the memories A(1) through A(5) are full, A(6) will equal 1. 


1Q REM INITIALIZE ''COUNTER'' 

29 FOR Z = 1 TO 6: A(Z) = G@: NEXT Z 
3Q ''PRINT!' 

4Q PAUSE A(5);A(4);A(3)7A(2)iA(1) 
59 GOSUB ''COUNTER'' 

69 IF A(6) = 1 END 

7Q@ GOTO ''PRINT'! 


299 ''COUNTER'' 

1G = 

220 FOR Z = 1 TO 6 

230 W =(A(Z)<> X): X = X*A(Z) 
249 A(Z) = W 

259 IF X = @ LET Z = 6 

268 NEXT Z 

27Q@ RETURN 
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Why Binary Numbers Are Useful 


What are binary numbers good for? For one thing, computers use them, and an under- 
standing of binary numbers help you understand how computers operate. But there is 
another reason why binary numbers are useful. For example, suppose you have four 
flavors: salt, sweet, sour, and bitter. You want to experiment by adding various combi- 
nations of the flavors to bread dough to see how it tastes. You might try salt and sour, 
or you might try sweet, sour, and bitter. You might even leave them all out, or put 
them all in. 

How many different ways are there to mix the four flavors? The answer is not 
obvious. Did you say 16? One way to see that there are 16 different combinations of 
the four flavors is to notice that each binary number from 0000 to 1111 could repre- 
sent a selection of the four flavors. The number 0000 represents the case where all the 
flavors are left out. The number 1111 represents the case where all the flavors are 
added. The number 1100 could represent the case where salt and sweet are added. For 
each possible combination, there is a binary number, and for each binary number 
there is a unique combination. There are 16 binary numbers between 0000 to 1111 in- 
clusive, and there are 16 combinations of flavors. 


Binary Bread Problem 


Write a program to print all the 16 possible combinations of the flavors salt, sweet, 

sour, and bitter. 

Hint: You can count in binary and use the binary number as printing directions. For 
example, the number 1010 would tell you to print SALT,BITTER. You will 
need memory space for the four binary digits. Store them in A(4), A(3), A(2), 
and A(1). You will also need some memories to store the four flavor names. Use 
A$(14), A$(13), A$(12), and A$(11) to store the flavor names. 


130 
140 
200 “COUNTER” 
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(Insert the “COUNTER” subroutine 
from the previous program here.) 


a. 1Q REM INITIALIZE ''COUNTER'! 
29 FOR Z = 1 TO 6: A(Z) = @: NEXT Z 
39 X = 1 


49 A$(14)=''SALT'': A$(13)=''SWEET'': A$(12)=''SOUR'': A$(11)=''BITTER''! 


58 GOSUB ''COUNTER'' 


6Q REM CHECK IF DONE 
79 IF A(5) = 1 END 


89 REM PRINT CHOSEN FLAVORS 
99 FOR Z = 1 TO 4 

199 IF A(Z) = 1 PAUSE A$(Z+1Q) 
119 NEXT Z 


129 BEEP(1) 


13@ REM GO DO IT AGAIN 
148 GOTO 5g 


299 ''COUNTER'! 

Dida al 

229 FOR Z = 1 TO 6 

230. SWS GAZ) xo: ke = AACR) 
240%. 1 NGZ\e=— 

250) ihe Kee Met mT, =16 


269 NEXT Z 
27Q RETURN 


Summing up Chapter Six 


The TRS-80 Pocket Computer performs some operations faster than others. 


e Variables near the end of the alphabet are accessed quicker than those at 
the beginning of the alphabet. 

¢ Some operations are faster than others that produce the same results. For 
example: 

2*2*2*2*2 is faster than 2A5 

However, 2/\5 is quicker to enter in a program. 

¢ Programs and problems in this chapter have given you a better under- 
standing of the speed with which various operations are performed. 
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¢ Some logic functions were introduced, as shown in this table. 


(A)=(B) 1if A=B; 0if A¥B 


Greater (A)>(B)- lif A>B;0IFA<B 
than ; 
(A) <(B) lif A<B;0if A>B 


(A)>=(B) | 1ifA=B;0ifA<B 


Greater 
than or 
equal to 


Less than (A)<=(B) 1if A<B;0if A>B 
or equal to 


(A)<>(B) lif A+B; 0if A=B 


Not A (A=0) 1 if (A=0) is false; 
0 if (A=0) is true 


Exclusive A<>B 
OR 
re 


¢ Binary numbers are formed from the symbols | and 0. 
¢ Binary place values are powers of 2. 


o 


a a 
a i 


x 
= { ~ 
Oy 


CHAPTER SEVEN 


Feedback and Systems 


This chapter centers around problems that grow on themselves. We all know that 
money doesn’t grow on trees, but it does grow in banks. We are most concerned here 
with how fast it grows. Other things grow too, either larger or smaller. Our weight 
changes, the temperature changes — life is full of changes. In this chapter, you will 
learn: 


e to compute the growth of money in banking; 

e to predict school class growth; 

° to compute weight changes from energy expended and calorie intake; 
* tocompute the result of several variables that affect a single event; 

* tocompute the result of feedback in closed systems; and 

e how changing variables may lead to constant results. 


Multiplier Effect Problem 


The banker in our town has a good thing going. If I deposit $100 in his bank, the 
friendly banker puts $20 in the vault and loans out the remaining $80 to someone else, 
meanwhile collecting a bit of interest for his trouble. Actually, things get even better 
for the banker. When that $80 is loaned out, it goes to someone in town. What is there 
to do with money ina small town? Take it to the bank, of course — giving the joyful 
banker a new deposit of $80. You know what the banker does now; deposits 20% ($16) 
in the vault and loans out 80% ($64) to someone else. Where does the $64 go? You 
guessed it; right back to the bank. The process is repeated again and again. The ques- 
tion is this: After sufficient time has gone by, how much will be in the vault, and how 
much will have been loaned out? 


Hint to Multiplier Effect Problem 


There are three numbers that will need to be stored; the amount in the vault, the total 
amount loaned, and, of course, the $100 that is the new deposit. 
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Store the amount in the vault at memory Z, the total amount loaned out at mem- 
ory Y, and the new deposit at memory X. At each step in the process take 20% of the 
deposit and add this to the vault. Take 80% of the deposit and add it to the total loaned 
out, and also store it as the new deposit. 


15 
29 


25 
32 


35 
49 


45 
5B 


55 
69 


65 
79 
89 
99 


95 


Solution to Multiplier Effect 


REM THE INITIAL AMOUNT IN VAULT 
Z=G 

REM THE INITIAL LOAN TOTAL 

Y=9 


REM THE INITIAL DEPOSIT 
X=199 


REM 29% TO VAULT, 8%% TO LOANS 
Z=Z+.2*X: Y=Y+.8*xX 


REM THE LOAN IS NEW DEPOSIT 
X=.8*X 


REM DISPLAY RESULTS 
USING ''#####.##'' <——_______________L format the data 
PRINT ''VAULT!'':Z for $ and ¢ 
PRINT ''LOANED'':Y 


REM REPEAT 


199 GOTO 59 


We ran the program on our Pocket Computer and this is what we saw: 


+ 
+ ; 


LOANED 144.99 
VAULT 48.89 

i 
LOANED 195.29 
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VAULT 59.94 


HS 


LOANED 236% 16 


VAULT Cres 


Ld 


LOANED 268.92 


VAULT 7318 


LOANED 295 ie 4 


VAULT 79.92 


LOANED 316/11 


At this point, we decided to change the PRINT statements to PAUSE state- 
ments and to let the program run awhile. 


The changes: 89 PAUSE ''VAULT'':2Z 
99 PAUSE ''LOANED'':Y 


We let it run for several minutes to see what happened. Since the banker only loans out 
80% of the new deposit, this amount gets smaller and smaller with time. Do you think 
the amount in the vault and the amount loaned out will ever stabilize? Try the version 
with the PAUSE statements and see. We found that the amount in the vault ap- 
proached $100 and the amount loaned out reached $400. 


English System Problem 


Every year ComputerTown College accepts 1,000 eager, bright-eyed freshmen. Every 
freshman takes English 1. Of those taking English 1, 80% pass and 20% do not. Those 
who do not pass will retake it the next year. Notice that the size of the class tends to 
grow because of those students who retake the course. Write a program that will print 
out the number of students in English 1 in each future year. 
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Hint to English System Problem 


The initial class size is 1,000 students. You should store this number somewhere, say 
in Z. The next year there will be 1,000 new students, plus 20% of the initial year’s 
class. Print this total and store the result in Z. The next class size will be 1,000, plus 
20% of the class size in Z. Print this total and store it in Z. Repeat this process for each 
future year. 


a. Will the class size stabilize at a given number? 
b. Ifso, what is the number? 


Solution to English System Problem 


15 REM N WILL COUNT THE YEARS 
29 N= 


25 REM Z IS THE NUMBER IN THE CLASS 
39 2Z=1999 


35 PRINT CURRENT NUMBERS 
4Q USING ''####HH##H'' 
59 PRINT ''YEAR '';N 
69 PRINT Z;'' STUDENTS'' 


65 REM COMPUTE A NEW CLASS NUMBER 
79 2Z=1999+.2*z 


75 REM COMPUTE NEW YEAR NUMBER 


89 N=N+1 
99 GoTO 59 


a. Yes, the class size will stabilize. 
b. To find out where, RUN the program (or use a little algebra.) 


Our run produced these results: 
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YEAR 13 


students 


Using a little algebra, 


Z = 1000 + .2Z 
.8Z = 1000 
Z = 1250 


Weight Wait Problem 


You have no doubt observed that animals store fat for the winter. Wishing to be eco- 
logically sound, organically whole, and in tune with nature, we should certainly adopt 
nature’s own strategy. There is one difficulty. Carrying fat around takes energy; in 
fact, it takes 16 calories to carry around one pound of fat for one day. One must get the 
16 calories by eating food or by using up fat. One pound of fat furnishes 3,500 calories. 
This also means that to add one pound of body fat, one must accumulate 3,500 more 
calories than one uses. 

If a person weighs 150 pounds now and eats 2,500 calories each day, then to 
what weight will the person eventually grow? (Please ignore the weight of the food 
eaten.) 
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Hint to Weight Wait 


First, some decisions. What do you need to store and where shall you store it? You will 
need to store the initial weight, W. You will need to store the new weight at the end of 
each day. Call this X. The new weight (X) will equal the old weight (W) minus the 
weight of the fat burned up to carry the old weight around, plus the weight of the fat 
accumulated due to the calories eaten. 


Solution to Weight Wait Problem 


The person’s weight is initially 150 pounds. To carry around W pounds for one day re- 
quires 16 X W/3500 parts of a pound of fat. The person will burn up this amount of 
fat during the day to carry W pounds around. 

The person has also eaten 2,500 calories during the day. This is equivalent to 
2500/3500 parts of a pound of fat. The person will add this amount. 


15 REM INITIALIZE WEIGHT W 
29 w=158 


25 REM COMPUTE NEW WEIGHT X 
39 X=W-16*W/3599+2599/3590 


35 REM PRINT NEW WEIGHT 
49 PAUSE ''NEW WEIGHT IS '':x 


45 REM REINITIALIZE WEIGHT WwW 
5@ W=x 


55 REM GO COMPUTE NEW WEIGHT 
6B GOTO 39 
The weight will grow to 156.2. Put on a pot of coffee and take a break while you 
run this program. It took our run about 22 minutes to reach 156.0. The closer you get 
to the final weight, the smaller the increases are. Here are the first few printouts that 
flashed by. 


NEW WEIGHT IS 159.928575 


NEW WEIGHT IS 159.957929 


NEW WEIGHT IS 159.985335 


NEW WEIGHT IS 159.113521 


NEW WEIGHT IS 159.141578 
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You could speed up this routine. Notice that you are doing some needless divi- 
sions in line 30. Since 16/3500=.004571429 and 2500/3500=.7142857, you can re- 
write line 30 as 3g x=w—.994571429*w+.7142857. In fact, you could factor out W to 
get 39 X=.9954386*w+.7142857. This saves one subtraction and two divisions. 

The print statements take much time too. Change line 60 to 


69 IF X-W<.9995 THEN 119. 
Add line 110: 
119 BEEP(3):PRINT X:END 


You don’t have to keep an eye on the display, but keep your ears open for the beep. 
With these two changes our run took about 10% minutes. At that point X — W was 
.005, and the program automatically ended. We didn’t quite reach 156.2, but we did 
get close. The final reading was: 


156.1426959 


By changing line 60 to 69 IF x-w<.g9p95 THEN 119 you could get much closer. 
However, the program would run much longer. 


Paying for the Potlatch Problem 


The native Indians of the Northwest have had an interesting tradition. Rather than 
compete and show off their possessions and wealth, they try to outdo one another in the 
giving of gifts. My neighbors Little Nut and Paying Deer are trying to establish this 
great tradition locally. Little Nut gives $10 per day in gifts to Paying Deer, and also 
adds $.90 extra for each $1 of gifts that he received from Paying Deer on the previous 
day. Paying Deer gives $12 each day to Little Nut and adds $.80 for each $1 in gifts 
that he received on the previous day from Little Nut. 

You should check to see what happens as the days pass. Will their gifts grow 
without bound? Who is the most generous? 


Hint for Paying for the Potlatch Problem 


The new amount given by each neighbor is completely determined by the previous 
amounts both gave. Initially, Little Nut gave $10 and Paying Deer gave $12. It is use- 
ful to compute a few values by hand to get a feel for the computations that the com- 
puter must do. Here are the first few values. 


Little Nut Paying Deer 
12 


20 
28.64 
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Carry on the computations until you decide what must be done in the computer pro- 
gram. At each new computation cycle, the new values become the old values and 
newer values are computed. 


Solution to Paying for the Potlatch Problem 


Let Y denote the current amount given by Little Nut. Let Z denote the current 
amount given by Paying Deer. These are given initially by Y = 10 and Z = 12 (line 
20). Let L denote the new amount given by Little Nut. This new amount is $10, plus 
90% of the amount given by Paying Deer (line 30). Similarly, the new amount given 
by Paying Deer is $12, plus 80% of the amount given by Little Nut (line 40). The first 
stage of the computation cycle is now finished, and you can print the new computed 
values (line 50). To continue the next cycle, set the current amounts equal to the new 
amounts and redo the calculations (lines 60 and 70). 

When you make a run, you should notice the difference between Little Nut’s 
gifts and Paying Deer’s gifts. Is the difference getting larger or smaller? 


15 REM INITIALIZE VARIABLES 
20 Y=19:Z=12 

3Q@ L=19+.9*Z: REM LITTLE NUT'S GIFT 
48 P=12+.8*Y: REM PAYING DEER'S GIFT 
5Q@ PRINT L,P 


55 REM REDEFINE INITIAL VALUES 
69 Y=L: Z=P 


65 REM GO COMPUTE NEW GIFTS 
72 GOTO 39 


Here are the first few displays of our run. 


29.8 29. 

28. 28.64 

35.776 34.4 
49.96 49.6298 
46.55872 44.768 
59.2912 49.246976 
54.3222784 52.23296 
57.999664 55.45782272 
59.91294945 57.6977312 
61.84695898 59.92963236 
63.93666912 61.47756646 
65.32989981 63.1493353 
66.83449177 64.26384785 


You might want to insert a line to print out the differences between L and P. Put 
it in at line 52. 


52 PRINT L-P 


a — 
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We observed these differences: 


8 
—.64 

1.376 
3392 
.79972 
.944224 

. 9893184 
.55184128 
39439925 
.91732572 
.45919266 
. 18947451 
.57955392 


1 
1 
2 
1 
2 
1 
2 
2 
2 


Do you think the differences are approaching some constant value? Go through 
enough cycles to find out for yourself. You might also want to study the differences of 
the differences. Those of you with some higher mathematics can tie this into rates and 
accelerations. 


Triple Threat Problem 


The triplets, Arnold, Bertrand, and Clem, each got an electric blanket for their birth- 
day this year. The blankets are of the very latest design; they cool in the summer, heat 
in the winter, and have a remarkable range of temperature. 

The triplets do have their individual preferences. Arnold likes to be cool and is 
comfortable at 71 degrees. Bertrand is happy as a clam at 72 degrees. Clem likes it a 
bit warmer at 73 degrees. 

It looked like the perfect gift, but unfortunately, there was a catastrophy. When 
the triplets went to bed, the temperature was 72 degrees. They did not suspect the aw- 
ful truth — their controls had become switched. Arnold had the control for Bertrand’s 
blanket, Bertrand had the control for Clem’s blanket, and Clem had the control for 
Arnold’s blanket. You can hardly imagine the trouble that followed. 

Arnold was too warm at 72 degrees, so he lowered the temperature (Bertrand’s 
temperature) by | degree. Meanwhile, Bertrand was perfectly comfortable at 72 de- 
grees and left the temperature (Clem’s temperature) unchanged. Clem, of course, was 
too cold at 72 degrees and raised the temperature (Arnold’s temperature) by | degree. 
Things got worse and worse. 

After one minute had gone by, all the changes had taken effect. Arnold was now 
feeling warm at 73 degrees, Bertrand was feeling cold at 71 degrees, and Clem was 
feeling cold at 72 degrees. They all turned over at the same time and changed their 
controls by 1 degree. Well, this made it even worse. After this minute had gone by, all 
the changes had taken effect, and you can clearly see that it will take a computer to 
describe how the three temperatures changed, minute by minute, degree by degree, 
throughout the tragic night. 

Write a program to compute the fate of the triplets. 


153 


154 PROBLEM-SOLVING ON THE TRS-80 POCKET COMPUTER 


Hint for Triple Threat Problem 


In order to see what needs to be done in a computer program, it is often useful to carry 
out the computations by hand until the inner logic of the program begins to become 
clear. Here are the first few values of the temperatures for the blankets. 


ARNOLD BERTRAND CLEM 
72 72 12, 
13 71 gp 
74 70 73 
74 69 74 


Carry the computation on by hand until you are clear about the calculations in- 
volved. Notice that the new values become old values for the next stage of calculation. 
The new temperature at each stage depends on whether some old temperature was 
above, at, or below the comfort level. For example, Arnold’s new temperature is Ar- 
nold’s old temperature, plus —1, 0, or 1, depending on whether Clem’s old temperature 
was above, at, or below 73. 

The first thing you need to do is decide what you need to store and where to store 
it. You need to store the initial temperatures for Arnold, Bertrand, and Clem. Use 
A(1), A(2), and A(3). You will be computing the next values for each of the triplets. 
Store the new values in A(4), A(5), and A(6). 

The next thing you will need to do is figure out how to simulate the decisions to 
raise or lower the temperature of the adjoining blanket. Arnold, for example, will com- 
pare his present temperature A(1) with his desired temperature which is 71. Arnold 
will change Bertrand’s old temperature A(2) by —1, 0, or 1, to get the new tempera- 
ture A(5), depending on the sign of the difference, 71-A(1). 

We’re sure you will be able to transfer this information to Bertrand and Clem: 


Solution to Triple Threat Problem 


Arnold will change Bertrand’s temperature by —1, 0, or 1, depending on the sign of the 
difference 71-A(1). Bertrand’s new temperature A(5) will be Bertrand’s old tempera- 
ture A(2), plus the change SGN(71-A(1)). We can say this in BASIC. The SGN 
function returns the sign of any number. 


For example: SGN(-—3) =-—1 
SGN(3) = 1 
SGN(0) =0 


The SGN function returns only the values —1, 0, or 1. Thus, in BASIC, 
A(5)=A(2)+SGN(71-A(1)). 

Similarly, Clem’s new temperature A(6) will be Clem’s old temperature A(3), 
plus the change SGN(72-A(2)) caused by Bertrand’s temperature difference. In 
BASIC, this is A(6)=A(3)+SGN(72—A(2)). 
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Similarly, Arnold’s new temperature A(4) is given by 
A(4)=A(1)+SGN(73—A(3)). Here is a program using these suggestions. 


15 REM INITIALIZE TEMPERATURES 
20 A(N)=72: A(2)=72: AC3)=72 


25 REM COMPUTE NEW VALUES 
39 A(5)=A(2)+SGN(71—A(1)) 
4 A(6)=A(3)+SGN(72—A(2)) 
59 A(4)=A(1)+SGN(73—-A(3)) 


55 REM PRINT NEW TEMPERATURES 
6@ PRINT A(4);A(5);A(6) 


65 REM REINITIALIZE TEMPERATURES 
7G A(1)=A(4): A(2)=A(5): A(3)=A(6) 


75 REM REPEAT THE PROCESS 
89 GOTO 39 


It is sad to relate that Clem froze solid as a snow ball early in the evening. Then, 
as Clem began to thaw out, Arnold’s temperature rose to feverish heights. We didn’t 
run our program long enough to determine the final outcome, but their survival is in 
doubt. Here are the results of our watch. Perhaps you were more patient and saw fur- 
ther results. 


A B G 

73 71 yo) 53 83 74 73 ga) 9 54 96 8p 28 
74 79 73 52 84 73 74 ig) * 59 97 79 27 
74 69 74 52 85 72 75 191 49 98 78 26 
73 68 75 53 86 71 76 199 48 99 77 25 
72 67 76 54 87 79 77 99 47 190 76 24 
71 66 77 55 88 69 78 98 46 191 75 23 
79 66 78 56 89 68 79 97 45 2 se 7a 22 
69 67 79 57 99 67 8g 96 44 1931 773 21 
68 68 8g 58 91 66 81 95 43 figay ere 29 
67 69 81 59 92 65 82 94 42 195 71 20 
66 79 82 69 93 64 83 93 41 196 79 21 
65 71 83 61 94 63 84 92 4g 197 69 22 
64 2 84 62 95 62 85 91 39 198 68 23 
63 73 84 63 96 61 86 og 38 109. 67 24 
62 74 83 64 97 69 87 89 37 119 66 25 
61 75 82 65 98 59 88 88 36 111 65 26 
69 76 81 66 99 58 89 87 35 112. 64 27 
59 77 8g 67 198 57 og 86 34 113. 63 28 
58 78 79 68 191 56 91 85 33 (ia 62 29 
57 79 78 69 192 55 92 84 32 ‘ 

56 8g 77 79 193 54 93 83 31 

55 81 76 TA 194 53 94 82 39 


54 82 7h) HIPs 194 52 95 81 29 
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War Game Problem 


The kingdom of Pandab and the republic of Quat are always on the verge of war. Nei- 
ther country trusts the other, and they spend most of their time and energy preparing 
for the possibility of war. They both follow what seems to them to be a reasonable and 
rational policy. Each spends a basic amount of money on defense, but adds an extra 
amount to take into account the armaments of the other side. Pandab spends 10 billion 
dollars each year, plus half of whatever the Quats spent the year before. The Quats, 
similarly, spend 11 billion dollars each year, plus one-third of whatever the Pandabs 
spent the year before. 

The foreign ministers of both countries have pointed out that this shows their 
peaceful intentions, since any decrease in the expenditures by the other side will auto- 
matically result in a decrease in their own expenditures. 

What will be the result.of this common policy? Write a program to simulate the 
conditions. 


Hint for War Game Problem 


The first year Pandab spends 10 billion dollars and Quat spends 11 billion. How much 
will each spend the second year? Pandab will add half of 11 billion to its budget. The 
total spent by Pandab will be 10 + .5X11 = 15.5 billion. 

The Quats will spend 11 billion dollars, plus one-third of 10 billion, for a total of 
14.33 billion dollars. 

The following year Pandab will spend 10 + .5X14.33, while Quat will spend 
11 + .33X15.5. The computation will continue in this way in each succeeding year. 


Solution to War Game Problem 


You will need to store the initial budgets. Let A(1) and A(2) contain the budgets for 
Pandab and Quat, respectively. You will need to compute and store the new budget for 
the next year. Let A(3) and A(4) contain the new budgets. 


15 REM STORE INITIAL BUDGETS 
28 A(1)=19: A(2)=11 


25 REM PRINT THE BUDGETS 
39 USING' '#####.#'':PRINT A(1),A(2) 


35 REM COMPUTE PANDAB'S NEXT BUDGET 
49 A(3) = 19+A(2)/2 


45 REM COMPUTE QUAT'S NEXT BUDGET 
59 A(4) = 114+A(1)/3 


55 REM REINITIALIZE 
6B A(1)=A(3): A(2)=A(4) 


65 REM DO IT AGAIN 
79 GOTO 39 
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Notice that we have formatted the print statement in line 30 to show tenths of 
billions of dollars. It seems ridiculous to try to print greater accuracy than that. How- 
ever, more accurate figures are used to compute the results. The budgets will stabilize 
at 18.6 and 17.2. 


Show Flow Problem 


The recent ComputerTown Computer Show was a great success. Everyone came and 
stayed all day. There was a lot to see. There were computers that talked and comput- 
ers that listened. There were computers that walked and computers that thought. 
There were musical computers and typing computers and computers that played 
games in all the colors of the rainbow. The show was held in three large rooms. It was 
noticed early in the morning that the people moved from room to room in a very or- 
derly way. The diagram below shows how the people moved. The numbers show the 
percentage of persons in the room who flowed through the doorway in each minute. 
This shows, for example, that during a one-minute period, 95% of the people in Room 
1 stayed there, while 2% moved to room 2, and 3% moved to room 3. 


Initially, there were 1,000 people in each room. How many people will be in each 
room at the end of 1 hour? Do you think they might all be in the same room? Might 
the numbers fluctuate? Will the number in each room reach some equilibrium level? 
Is the final state dependent on the initial amounts in each room? A cleverly con- 
structed program would yield the answer to these questions. 
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Hint to Show Flow Problem 


How are you going to use all those numbers? Do a few cases by hand and see just what 
this is all about. How many people will be in room | after 1 minute? There are 1,000 
people there originally, and the diagram shows that 95% stayed. This means that .95 X 
1000 = 950 stayed in room 1. However, more people came in from the other two 
rooms. Of the 1,000 people in room 2, 5%, or 50 persons, came into room 1. Of the 1,- 
000 people in room 3, 4%, or 40 persons, came into room 1. The total in room | after | 
minute is .95 X (# in room 1) + .05 X (# in room2) + .04 X (# in room 3) = 1,040. 

You can see how the calculations will go. A little planning and a few decisions 
are now in order. You will need to store the initial numbers for each of the rooms. 
These will be the basis for the numbers in each room at the end of 1 minute. Store the 
initial numbers in rooms 1, 2, and 3 in memories A(1), A(2), and A(3). Store the com- 
puted numbers in A(4), A(5), and A(6). 


Solution to Show Flow Problem 


15 REM SET INITIAL ROOM NUMBERS 
28 A(1)=1P9B: A(2)=199B: A(3)=1999 


25 REM COMPUTE NEW NUMBERS 

3B A(4)=.95*A(1)+.05*A(2)+.04*A(3) 
49 A(5)=.02*A(1)+.94*A(2)+.06*A(3) 
59 A(6)=.93*A(1)+.91*A(2)+.99*A(3) 


55 REM REINITIALIZE 
6G A(1)=A(4):A(2)=A(5):A(3)=A(6) 


65 REM GO COMPUTE AGAIN 
7G GOTO 39 


Oops! We forgot something. I hope you didn’t. Can you see an important line missing 
from this program? It would be useful to add a print statement at some appropriate 
line. Since we know the original values, we won’t print them. Instead, we put our print 
statement at line 62. We also formatted the PRINT statement with a USING state- 
ment in line 22. 


22 USING ''#####'' ~——__________. This forces the print 
ZL CU eer EAC) statement to ignore 
fractional parts of people. 


FEEDBACK AND SYSTEMS 


Here’s how the format worked out when the program was run. 


Room 1 Room 2 Room 3 
194@ 1929 949 
1976 1936 887 
1119 1948 841 
1149 1958 89B 
1168 1965 765 
1194 1971 734 
1217 1974 797 
1238 1977 684 
W257 1978 663 
2S 1978 645 
1291 1978 639 
1395 1977 616 


If you add the three values, you can see that the total doesn’t always equal 3,000 
(because fractional parts are ignored). No doubt, one or two may have sneaked off to 
the snack bar, or the rest room. They may have even left the show. The official counter 
may have missed one or two as they were passing from room to room. 

Well, are you ready to make any predictions from the print-outs so far? Do you 
think the rooms will stabilize? Try changing the PRINT statement to PAUSE. Then 
you can do something else for awhile and come back to check the display later. 


62 PAUSE A(1);A(2);A(3) 


After several minutes, we came back to the Pocket Computer. It seems to be sta- 
bilized at: 


1446 1918 535 
We let it run awhile and found a slight change to: 
1446 1917 535 


Presumably, someone went home. That’s not bad though — 2,998 people still at 
the show. If you were planning a computer show, it would be nice to know such things 
as people flow before the show began. Then you could plan for three different-size 
rooms, and there would be equal space for all. 

In case you are wondering, after one hour there were 1,445 people in room 1, 
1,019 people in room 2, and 535 people in room 3. So, the flow had just about stabi- 
lized the count in each room. 

Remember, the Pocket Computer has been using fractions of people in its calcu- 
lations even though we formatted the print statement for integers. If someone were to 
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actually count the people in each room, they couldn’t count the fractions..Therefore, 
our program should calculate with integers. 
We could change lines 30, 40, and 50, using the integer function. 


3B A(4)= INT(.95*A(1))+INT(.95*A(2))+INT(.@4*A(3)) 
etc. 


However, this method would cut off the decimal part of our calculations completely. 
We would find that many people were disappearing from our count. It would be better 
if we rounded off the calculations to the nearest integer. Then we would get a more ac- 
curate count. We will therefore change lines 30, 40, and 50 as follows: 


30 A(4)=INT(.95*A(1)+.5)+INT(.05*A(2)+.5) +INT(.04*A(3)+.5) 
4Q A(5)=INT(.02*A(1)+.5)+INT(.94*A(2)+.5) +INT(.06*A(3)+.5) 
59 A(6)=INT(.93*A(1)+.5)+INT(.91*A(2)+.5) +INT(.99*A(3)+.5) 


Now, when we run the program, we see: 


1949 1929 949 
1977 1936 887 
1119 1949 849 
1141 1958 799 
1169 1966 764 
1195 1971 734 
1218 1975 798 


You can see that these figures are similar to the first approach, but not quite the same. 
If we let the program run until the room counts stabilize, we see the display: 


1442 1925 535 


So, you see, final results of a computer program depend quite a bit on methods that the 
programmer uses. : 


Summing Up Chapter Seven 


All the programs in this chapter have been feedback systems that perform calculations 
and feed the results back to the beginning of the program. They are recalculated and 
fed back over and over again. Many real life situations are similar. We make decisions 
based on the result of previous situations. A computer is very good at solving problems 
that can be organized in this way. 

Problem solving becomes much simpler when you can separate the problem into 
small steps, decide how each step can be accomplished, and see how each step fits into 
the complete solution. 

You used the same, or similar, techniques to solve each of the problems in this 
chapter. Although the problems appeared quite different on the surface, the same 
methods were used to reach the varied solutions. 


CHAPTER EIGHT 


Random Walk 


Numbers occur in this world in numerous quantities and styles. Quite often they occur 
at random. Sometimes numbers appear to be equally random. Other times they seem 
to be random within certain areas or shapes, such as a “normal” distribution. 

This chapter looks at the randomness of numbers in many ways. In this chapter, 
you will learn how to: 


e generate random numbers to simulate coins and dice; 
e describe different kinds of randomness; 

e sort numbers into a histogram; and 

e use random numbers to simulate real events. 
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Random Number Generator Problem 


How do you change a 4-digit number, R, into another 4-digit number in a “random” 
manner? Here is one recipe: 


1. Stretch it by 221. (221 times the original number) 
2. Shift it by 2,113. (add 2,113 to the result of 1) 


3. Reduce it by multiples of 10,000. (subtract INT(R/10000) x 10000) 


NUMBER 
STRETCHER 
R=221*R 


NUMBER 
SHIFTER 
R=R+2113 


NUMBER 


REDUCER 
R =R-INT (R/1000) * 10,000 


In BASIC, this may be written as: 


R=221*R+2113 
R=R—INT(R/ 19999) * 19998) 


The new value of R is remarkably independent of the old value of R. 
Write a program that allows the user to input an initial value for R, then com- 
putes and prints out new values for R in a “random” manner using the recipe above. 
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Hint to a Random Number Generator 


This will be an often used program. You should write it in such a way that it can be 
easily used as a subroutine in other programs. Write the subroutine starting at line 500 
with a label, “RND”’. Here is how the top of the program might look. 


15 REM INPUT AN INITIAL VALUE FOR R 
29 INPUT R 


25 REM GET A RANDOM NUMBER R 
38 GOSUB ''RND''! 


4G PRINT R 


Complete the program so that an indefinite number of random numbers will be 
printed. The initial value for R at line 20 only has to be executed once. The subroutine 
will produce a series of 4-digit random numbers. 


Solution to a Random Number Generator Problem 


15 REM INPUT AN INITIAL VALUE FOR R 
29 INPUT R 


25 REM GET A RANDOM NUMBER R 
38 GOSUB ''RND'' 


49 PRINT R 


45 REM DO IT AGAIN 
59 GOTO 39 
6% END 


5@@ ''RND'':REM RANDOM GENERATOR 
51@ R=221*R+2113 

529 R=R-INT(R/10000)*10000 

539 RETURN 


We input the initial value of 1,234 for R and saw the following random numbers 
appear. 


4827 3692 4957 
883g 8945 871¢ 
4593 g958 7923 
7166 4931 4196 
5799 1864 9429 


If we stop the program and run it again using the same value (1,234) as the initial 
value of R, we will see the same random numbers displayed in the same order. But, if 
we input a different initial value for R, we will get a new and different list of random 
numbers. 

Try this program with several different inputs. 
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Random Tests Problem 


In the last problem, you saw the devious ways of the random number generator. You 
ought now to be responsible and craftsmanlike, and test the random generator to see if 
it does really generate randomly. Wouldn’t you like to generate a few numbers using 
the “RND” subroutine and sort them out by size? Even if you said no, you should try 
it anyway. Here is a chart to fill in. Just make a check mark in the appropriate box for 
each random number that you generate. Notice the boxes are for sorting decimals be- 
tween 0 and 1. Write your program so that it prints random numbers between 0 and 1. 


0 01 #02 03 04 05 06 07 08 09 1.0 


Hint to Random Tests 


Here’s what we got when we sorted out the first 23 random numbers that were 
generated. The first random number that our generator gave us was R/ 10000 = .4678. 
This number is between .4 and .5 so a check was put in the appropriate box. , 


RANDOM WALK 


Solution to Random Tests Problem 


The check marks should tend to fall into all boxes with the same probability. This 
shows that the numbers being generated are really random in the sense that any num- 
ber is as likely as any other number to occur. The random numbers which are gener- 
ated should be uniformly distributed between 0 and 1. With such a small sample of 
numbers (23), our distribution is not truly uniform. A much larger sample would be 
needed to provide a good test. Each four place decimal number between 0 and 1| should 
be as likely as any other. This routine furnishes us with a standard, uniformly distrib- 
uted random variable. 


15 REM INITIALIZE ''RND'! 
29 INPUT R 

3Q@ GOSUB ''RND!'! 

49 PRINT R/19999 


45 REM GET ANOTHER NUMBER 
59 GOTO 39 


509 ''RND!'! 
519 R=221*R+2113 


529 R=R—-INT(R/1GG99)* 19998 
539 RETURN 


After you have thoroughly tested the random number generator, you'll undoubt- 
edly use it in future programs. 


Some Triangle Problem 


What do you suppose happens when two uniform variables are added together? 
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Yee Viel = | LL 


Write a program to add two “standard,” random numbers. Place the results in the fol- 
lowing boxes. 


Psa bale | ed 


0 0.2 0.4 0.6 0.8 1.0 Ue? 1.4 1.6 1.8 2.0 


i 
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Hint to Some Triangle Problem 


Be sure you input an initial value for R, then some lines that look something like this: 


GOSUB ''RND'': A=R/1999¢ 
GOSUB ''RND'': B=R/1999@ 
C=A+B 

PRINT C 


Don’t forget to add line numbers and insert the random number generator. 


Solution to Some Triangle Problem 


15 REM INITIALIZE ''RND'' WITH 4 DIGIT NUMBER 
29 INPUT R 


39 ''BEGIN'! 


35 REM GET TWO RND NUMBERS 
49 GOSUB ''RND'': A=R/19999 
58 GOSUB'''RND'': B=R/19999 


55 REM COMPUTE AND PRINT SUM 
69 C=A+B 
79 PRINT C 


75 REM DO IT AGAIN 
89 GOTO ''BEGIN'! 
99 END 


59@ ''RND!! 

519 R=221*R+2113 

529 R=R-INT(R/19999)* 19998 
539 RETURN 


The random numbers A and B, and their sum C, tend to look like this: 


= tl. 


Yours might not look exactly like this, but the random generator will be trying. 
What do you think happens when three uniform variables are added? Maybe 
this? 
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Plus or Minus Problem 


Back and forth, up and down, in and out, randomly coming and going. What we need 
now is a short subroutine, called “SIGN”, that returns a random variable S, which is 
equal to +1 or —1 with equal probability. Number the “SIGN” subroutine starting 
with line 600. Include a GOSUB for “RND”. 


Hint for Plus or Minus 


Get a 4-digit random number R from “RND”. R will be a number between 0 and 
10,000, such as 5,713. Divide the numbers as shown here. 


jo | L 
0 5000 10,000 
Solution to Plus or Minus Problem 
699 ''SIGN'" Don’t forget 
619 GOSUB ''RND'': REM R IS NOW DEFINED “RND” at lines 
629 IF R>= 5 S=1 
3 Bee 500 through 530. 


639 IF R<5999 LET S=-1 
649 RETURN 


Lines 620 and 630 can be simplified a bit. Here is another way to get S. 


629 S=1 
639 IF R<5999 LET S=—1 


or 


629 S=SGN(R-5999) 
639 IF S=S LET S=1 


or 


629 IF R>=59P@P LET S=1:GOTO 649 
639 S=—-1 
Coin Flop Problem 


A coin comes in one of two states, heads or tails. This has been useful, entertaining, 
and instructive for humankind throughout recorded history. A coin can tell a fortune 
or win a fortune. A coin can send a message or make a decision. 


GES ee lca) AO seal aA Olas le aa ee One Isai 1 
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(Coin messages tend to be all noise and no message.) There is much to be learned from 
coins. : 


Write a program which prints out a random sequence of 0’s and 1’s using the “RND” 
subroutine. Make it a subroutine called “COIN” beginning at line 550. It should re- 
turn a variable, C, which is randomly equal to 1 or 0. 


Hint to Coin Flop Problem 


It looks like a random number generator is needed. How can we use our 4-digit gener- 
ator to set random 0’s or 1’s? 

Generate random numbers with the “RND” subroutine. Call “RND” with the 
GOSUB command GOSUB “RND”. Remember, “RRND” has been used from lines 
500 through 530 so it will be out of the way of “COIN”. 

“RND” will return a 4-digit number R. Now you need to do something with R to 
get 0’s and 1’s. You could set C = 1, when R = 5000. 


Solution to Coin Flop Problem 


Get a random 4-digit number from “RND”. Check the size of R to get C. There are 
several ways you could do this. 


IF R>= 5999 LET C=1 

IF R<599@ LET C=9 
or 

c=1 

IF R<5999 LET C=9 
or 

C=(5P9P<R) 
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We used the last one. Notice that this subroutine will need to call “RND”. Append 
“RND” to the program. The complete program with documentation removed looks 
like this: 


15 REM INITIALIZE R 
2Q INPUT R 


3Q GOSUB ''COIN''! 
4Q PRINT C 
5B GOTO 39 


599 ''RND'! 

51Q R=221*R+2113 

528 R=R—-INT(R/1999B)* 19999 
539 RETURN 


55@ ''COIN'! 

56@ GOSUB ''RND!! 
579 C=(5P99<R) 
589 RETURN 


As a result of 20 coin flops, we saw this sequence of zeros and ones on the 
display. 


CeO ie Bes De Oe Cente eee Oates Oe 01 


10 zeros and 10 ones — we were lucky. 


Gambler’s Ruin Problem 


Gambling was invented right after the coin. (It was probably a good thing: It helps to 
redistribute the coins.) Of one thing you may be sure; if you play long enough, you'll 
run out of money. The length of time it takes to run out of money in a coin tossing 
game illustrates the nature of the gambler’s ruin problem. 

Write a program that simulates a gambler who starts with five pennies. On each 
toss of the coin, the gambler loses a penny if it comes up tails (—1) and wins a penny if 
it comes up heads (+1). How long does it take the gambler to go broke? 


Hint to Gambler’s Ruin 


Use the “SIGN” subroutine to generate +1 and —1 at random. A running total will 
keep track of the number of coins that the gambler has left. 
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Solution to Gambler’s Ruin Problem 


19 INPUT R: REM INITIALIZE ''RND'' 
2@ T=5: REM GAMBLER STARTS WITH 5 


25 REM GET RANDOM S= +1,-—1 
38 GOSUB ''SIGN'' 


35 REM KEEP TRACK OF TOTAL PENNIES 
4g T=T+S 


45 REM PRINT TOTAL AND CHECK IF BUSTED 
59 PRINT T 

69 IF T>Q@ THEN 39 

79 PRINT ''BUSTED'':END 


598 ''RND!! 

518 R=221*R+2113 

529 R=R-INT(R/19999)* 19999 
539 RETURN 


699 ''SIGN'! 

619 GOSUB ''RND'! 

629 S=SGN(R-59GQ) 

639 IF S= LET S=1 
649 RETURN 


To see how quick the gambler’s ruin is reached, we ran the program with these 


results. 
First run: Ar 30-62": 1 70:2 BUSTED 
Secondirun: <6 584-5554 3) 2°-1- BUSTED 
Third run: 6h Sr 60) S65 6.72387 9 8) 9 Sie 9s Ole Oma Or ula 
Helbeel ees Sel Deis ssc eileen Ob Mims. siilker I) nese eae si) tie). 


ID lS oa A Se S16 eli, 182-1 ee Oh 2) Ob lkge2 Dee) 10) 
O20 S19) 202 192.02 20820) 2 ne PO DO Bete ce 
We gave up! If we had kept going, would the gambler have ever busted? 


How to Add When You Don’t Have the Numbers 


You may have noticed that good numbers are hard to find. Error, ignorance, and mis- 
information are everywhere. What is one to do? Decisions are necessary and plans 
must be made, even though we don’t have all the facts. There must be some way to 
take our ignorance into account. 

Here is acommon situation. Your car gets around 20 miles per gallon. The vaca- 
tion trip that you want to make will be about 500 miles. About how much gas will it 
take? 

You don’t know all the facts exactly; but you do know something. What you 
know is hard to describe. Let’s try to describe one of your fuzzy facts. What is it that 
you know when you say your car gets around 20 miles per gallon? Sometimes it gets 
18, sometimes it gets 22, sometimes it gets something in between. A picture describes 
the situation. 
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18 18 20 21 22 


Any of the numbers between 18 and 22 could be your actual mileage. The number that 
actually occurs is largely a matter of chance. The mileage is a random number be- 
tween 18 and 22. You can simulate mileage numbers using the “RND” subroutine 
listed earlier in the book. 


Random Mileage Problem 


Can you write a program which will generate random numbers between 18 and 22 so 
that each decimal number is as likely as any other? 


Hint to Random Mileage Problem 


The subroutine ““RND” generates numbers between 0 and 9,999. You need decimal 
numbers between 18 and 22. You can generate numbers between 0 and 4 by dividing 
each number from “RND” by 2,500. Now, if you add 18 to these numbers, you will 
have what you want. 


as lO 
20 
30 
40 
50 
60 
70 
80 
90 


a. 19 REM START THE RANDOM GENERATOR 
29 INPUT R 


38 REM GO GET A RANDOM NUMBER 
4% GOSUB ''RND''! 


5% REM ADJUST NUMBER FROM ''RND'' 
69 M = R/2599+18 


79 PRINT M 


89 REM GO DO IT AGAIN 
99 GOTO 49 
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You could use the previous method to generate random numbers that simulate 
the distance D that you will cover on your trip. Suppose the trip will be between 450 
and 550 miles. Line 60 would look like this: 


68 D = R/199+45B 


Now that you are so good at generating random numbers, perhaps you would 
like to finish the problem that we started. 


Random Gas Problem 


Your car mileage is a random number M that varies uniformly between 18 and 22. 
The distance to be traveled is a random number D that varies uniformly between 450 
and 550. Write a program to generate random numbers G which correspond to the to- 
tal gallons of gasoline used on the trip. 


Hint to Random Gas 


Miles per gallon times gallons equals miles. Put another way, M X G = D. What you 
need is the random number for G. 


500 “RND” 


(Random subroutine goes here) 
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Ate lO) 
29 


39 
49 
5g 


69 
79 
89 


99 


REM START THE RANDOM GEN ERATOR 
INPUT R 


REM COMPUTE RANDOM DISTANCE D 
GOSUB ''RND!! 
D = R/199+45B 


REM COMPUTE RANDOM MILEAGE M 
GOSUB ''RND!' 
M = R/2599+18 


REM GENERATE G 


198 G = D/M 


11Q PRINT G 


12Q REM GO DO IT AGAIN 
13G GOTO 49 


We ran this program, and generated 200 numbers. The numbers we got ranged 
from 21 up to 30. When we sorted them out, we got the following distribution. 


42 


21 


This distribution tells us a great deal. Although you can expect to use about 25 gallons, 


22 23 24 25 26 2} 28 29 30 


the actual amount may deviate from 21 gallons or, on rare occasions, to nearly 30 


gallons. 


Open House Problem 


Parties are hard to plan, and an open house is nearly impossible. The main trouble is 
that you never know just how many people will show up. Even if you know how many 
people are coming, you won’t know how much they will eat or drink. Let’s suppose that 
the number of people coming is a random number between 30 and 40, whose distribu- 


tion looks like this: 


30 40 


173 


174. PROBLEM-SOLVING ON THE TRS-80 POCKET COMPUTER 


Let’s also suppose that the number of crackers eaten by each person is a random num- 
ber between 10 and 15, whose distribution looks like this: 


Write a program to investigate the number of crackers required for the party. 
Do you think 500 crackers will be enough? 


Hint to Open House 


You will need to generate a random number P to simulate the number of people who 
come to the party, and you will need a random number C to simulate the number of 
crackers eaten by each person who comes. For example, if P = 35, then you will need 
to generate 35 random numbers C to simulate the crackers eaten by each of the guests. 
The sum of these cracker numbers is what we need to know. 


a. 10 
20 
30 
40 
50 
60 
70 
80 
90 

100 
110 
120 
130 
140 
150 
160 
170 


500 “RND” 
(Add the ““RND” subroutine here) 
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ae 19 REM INITIALIZE ''RND'' 
2G INPUT R 


3@ REM GET RANDOM P 
49 GOSUB ''RND'' 
58 P = R/1999+39 


6% REM SET ACCUMULATOR TO ZERO 
19S =9 


8% REM GET P RANDOM C's 
99 FOR Z = 1 TO P 

19% GOSUB ''RND!! 

119 C = R/2999+19 

129 REM ADD UP THE C's 
139 S = S+c 

149 NEXT 2 

159 BEEP(2): PRINT S 


168 REM GO HAVE ANOTHER PARTY 
178 GOTO 49 


5Q9@ ''RND!! 


(Add the “RND” subroutine here) 
Weran this program to get 75 numbers (P). Here is how the numbers stacked up 
in a histogram. It looks like 500 crackers will be plenty. 


ee 
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Electron Hotel Problem 


Nearly everything has a battery in it these days; wristwatches and golf carts, tooth- 
brushes and TV sets, not to mention the occasional horseless carriage. 

A battery, as any child knows, is a hotel for electrons. The electrons line up pa- 
tiently, waiting to enter. 


The first electron in line enters and checks a room at random. If the room is 
empty, then the electron occupies the room. If the room is not empty, then the electron 
must go back to the front of the line and try again. (We recently looked at a battery 
with a large magnifying glass and can assure you of the veracity of this report.) 

Write a program that will simulate the electron hotel problem. You are, no 
doubt, wondering just how many tries it will take to fill 9 rooms in a 10-room hotel. 


Hint for Electron Hotel Problem 


There are 10 numbered rooms. A random room number is chosen. The room is 
checked to see if it is empty or not. If the room is empty, then it is filled. If the room is 
not empty, then the process is repeated; a room is chosen at random and checked. 

Let the rooms correspond to memories. Let the state of the room correspond to 
the state of the memory. 
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Solution to Electron Hotel Problem 


15 REM INITIALIZE ''RND'! 
29 INPUT R 


25 REM INITIALIZE COUNTERS 
39 T=9: W=0 


35 INITIALIZE MEMORIES 
49 FOR Z=1 TO 19:A$(Z)=!'E'':NEXT Z 


59 ''NEWTRY'' 
69 T=T+1 


65 REM GET A NUMBER, 1 TO 19 
79 GOSUB ''NUMBER'' 


75 REM CHECK IF FULL OR EMPTY ROOM 
89 IF A$(N)=''F'! GOTO ''NEWTRY'' 


85 REM ROOM IS EMPTY, FILL IT 
9G AS(N)=''F!'! 


95 REM INCREMENT FILL COUNTER 
19% W=w+1 


195 REM CHECK IF 9 ROOMS ARE FULL 
118 IF W>8 GOTO ''PRINT!'' 


115 REM IF 9 ARE NOT FULL TRY AGAIN 
128 GOTO ''NEWTRY'' 


138 ''PRINT!! 
149 PRINT ''TRIES Uae ae 
159 GOTO 30 


29@ ''NUMBER'' 

219 GOSUB ''RND!' 

229 N = INT(R/1999)+1) 
239 RETURN 


(Append “RND” subroutine) 


Histogram Problem 


Numbers pour in upon us. Heaps of numbers, swelling oceans of numbers. It’s the 
plague of the age. We at last have more information than we can deal with. The sim- 
plest and most useful thing you can do with a string of numbers is to sort it out by size. 
Here is a string of numbers: 


47, 61, 52, 48, 57, 29, 51, 82, 38 


Here is the string sorted into boxes by size. The sorting boxes are 10 numbers 
wide. For example, any number between 40 and 49 goes into the same box. Any num- 
ber between 50 and 59 goes into the next box, and so on. 
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0 10 20 30 40 50 60 70 80 90 100 


It is quicker and easier to use check marks instead of writing all the numbers down. 
This is sometimes called a histogram. 


We are most interested in the number of checks in each box. If we count the numbers 
in the boxes we get: 


Write a subroutine called “HISTOGRAM” that starts at line 800 and allows the user 
to input a sequence of numbers between 0 and 100 (but not including 100). The pro- 
gram should keep count of the number of occurrences in each interval. When a nega- 
tive number is input, the program should print out the number of occurrences in each 
interval and end. The output for the previous example would be: 


Bis 3 diline Vige 2a dhy. alley areal i! 


Hint to Histogram Problem 


It is always a good idea to make a program as foolproof as possible. The program takes 
numbers between 0 and 100 as input. Someone will certainly input 397,521 or some 
other very large number. What happens then? You had better put in a test to make 
sure the input is in the proper range. 

It will also be necessary to make some decisions. You will need to keep track of 
the numbers in each box. Where shall you store the 10 numbers? Let’s agree on A(1) 
through A(10). These will be counters. What shall you call the input? Use the variable 
Z. Now, all that’s left for you to do is figure out how to test Z to get its box number 
and add | to the number in that box. 
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Solution to Histogram Problem 


Consider the heart of the program first. How are you going to test the number Z and 
determine what box it should go into? You can make this a subroutine and give it some 
appropriate name, like “FINDBOX”’. Here is one possible approach: 


209 
295 
219 
229 
239 
24g 
25¢ 
269 
279 
289 
299 
399 
319 


‘'PINDBOX!! 

REM FINDS BOX NUMBER Y FOR NUMBER Z 
IF 99<=Z LET Y=19:GOTO 319 
IF 89<=Z LET Y=9:GOTO 319 
IF 79<=Z LET Y=8:GOTO 319 
IF 69<=Z LET Y=7:GOTO 319 
IF 5§9<=Z LET Y=6:GOTO 319 
IF 49<=Z LET Y=5:GOTO 319 
IF 39<=Z LET Y=4:GOTO 319 
IF 29<=Z LET Y=3:GOTO 319 
IF 19<=Z LET Y=2:GOTO 319 
Y=1 

RETURN 


Here is another method using a FOR-NEXT loop. It takes fewer lines, but must 
search through each 10 conditions for each number. The first version simply searches 
until the proper box is found and then goes to the end of the routine. Which method is 


faster? 


299 
295 
219 
229 
239 
240 
259 
269 


''PINDBOX! ! 

REM FINDS NUMBER Y FOR NUMBER Z 

FOR X=1 TO 19 
W=19*(X-1) 
V=(W<=Z) *(Z<W+9 ) <—_—_—_ $$$ logic AND function 
IF V=1 LET Y=X 

NEXT X 

RETURN 


Here is another possibility: 


208 
295 
219 
229 
239 
240 


''PINDBOX!'! 

REM FINDS BOX NUMBER Y FOR NUMBER Z 
FOR X=1 TO 19 

IF Z<19*X LET Y=X:X=19 

NEXT X 


RETURN ] To break out of 
Rid west the FOR-NEXT loop 


One last possibility: 


292 


''PINDBOX'': Y=INT(Z/1%)+1: RETURN 
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Using the last method, here is how a finished version of the whole program looks. 


15 REM INITIALIZE MEMORY 
20 FOR Z=1 TO 19: A(Z)=@: NEXT Z 


25 REM INPUT A NUMBER BETWEEN @ AND 199 
39 INPUT Z 


35 REM TEST Z 
4g IF Z<Q GOTO ''PRINT!! 
58 IF Z>=19% BEEP!3):PRINT''TOO BIG, PRESS ENTER'':GOTO 39 


55 REM GET BOX NUMBER Y 
6% GOSUB ''FINDBOX'' 


65 REM INCREMENT THE BOX 
7@ A(Y)=A(Y)+1 


75 REM INPUT ANOTHER NUMBER 
89 GOTO 38 


299 ''FINDBOX'':Y=INT(Z/1@)+1:RETURN 


399 ''PRINT!'! 

395 REM PRINT RESULT AND END 

318 FOR Z=1 TO 19: PRINT A(Z):NEXT Z 
329 END 


Fox and Rabbits Program 


On a certain island lives 20 rabbits and a single fox. The rabbits each have their own 
territory, and there is one rabbit per territory. The fox hunts in exactly one territory 
per day, at random, in the 20 territories. 

Write a program to simulate this situation and print out the total number of rab- 
bits caught after any number of days. Assume that there are very atypical rabbits that 
do not reproduce. The fox also doesn’t realize that if it has already caught a rabbit ina 
given territory, he will not catch another rabbit there. So, some days he will not make 
a catch. About how long will it take the fox to catch 18 of the rabbits? 


Hint to Fox and Rabbits Problem 


The first thing to do is make a decision as to how the rabbit territories are to be repre- 
sented by the computer’s memories. You need 20 memory registers. Each will record 

whether a rabbit is there (1) or not (0). Use A(31) through A(50) to record the state 

of the 20 rabbit territories. 

The second thing to do is devise a random number subroutine that returns num- 
bers from 31 through 50. The random number will simulate the foxes random choice 
of a territory. 

You will also need counters for the day and for the number of rabbits caught. 
And don’t forget the printout. 
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Solution to Fox and Rabbits Problem 


15 REM INITIALIZE ''RND'' §@<R<199 99 
2 INPUT R 


25 REM INITIALIZE TERRITORIES 
39 FOR Z=31 TO 5@:A(Z)=1:NEXT Z 


35 REM INITIALIZE DAY COUNTER 
49 D=9:C=p 

45 REM GET A RANDOM NUMBER R 
59 GOSUB ''RND'! 


55 REM ADJUST R TO T THE TERRITORY 
69 T=INT(R*2G/19999+31) 


65 REM INCREMENT DAY COUNTER 
79 D=D+1 


75 REM IF IT'S THERE CATCH THE RABBIT 
8G IF A(T)=1 LET A(T)=9: C=C+1 


85 REM PRINT THE DAY'S RESULTS 
99 PRINT D,c 


95 REM GO TO NEXT DAY 
19% GOTO 59 


298 ''RND!! 
219 R=221*R+2113 

229 R=R-INT(R/199BB)* 19999 
238 RETURN 


Short Story Problem 
Have you ever wanted to be a writer? All you need to do is put words together to get 
sentences. Once you’ve gotten enough sentences, you’ve got a book. Soon thereafter, 
fame and fortune will knock on your door. Since all that is needed is a goodly supply of 
sentences, perhaps you ought to see if you can mechanize the process. 

Write a program which picks one word from each of the lines that follow to make 
a complete sentence. 


0. 


il 


A, THE, THIS, THAT 

TALL, SHORT, AAP Y, SAD 

BLONDE, cuits FRENCH, MEXICAN 
MAN, aN ie BOY, GIRL 

RAN, ee CRAWLED, DANCED 
uke: QUICKLY, WILDLY, NAKED 
ON, OVER, THROUGH, AMONG 

THESE, DRY, THE, wer 


GRASSES, LEAVES, ROCKS, FLOWERS 
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Hint for Short Story Problem 


The first thing you need is to decide where to put all those words. Store them in memo- 
ries A$(30) through A$(65). A$(30)=“A”; A$(31)=“THE”; A$(32)=“THIS”; and 
so on until A$(65)=“FLOWERS”. 

To choose a word from line 0, you need to choose a random number (1) from the 
set 0,1,2,3. The word you choose is at A$(30+1). To choose a word from line 1, you 
need another random number (I). The word you choose is at A$(30+4+1). In a similar 
way, you choose a word from line 6 at A$(30+4*6+1). 


Solution to Short Story Problem 


15 REM INITIALIZE ''RND'! 
29 INPUT R 


25 REM INPUT WORD LIST 
39 GOSUB ''WORDLIST''! 


35 REM CHOOSE A WORD FROM EACH LINE 
49 FOR L=G TO 8 


45 REM GET I (@-3) 
58 GOSUB ''INTEGER'! 


55 REM PRINT SELECTED WORD 
69 PAUSE A$(39+4*L+1) 
79 NEXT L 


75 REM LEAVE BLANK AFTER SENTENCE 
89 PAUSE '' '' :BEEP(1) 


85 REM GET ANOTHER SENTENCE 
998 GOTO 4g 


299 ''WORDLIST!! 
218 FOR Z=39 TO 65 

228 PRINT ''WORD'';Z 
239 INPUT A$(Z) 

249 NEXT Z 

259 RETURN 


590 ''RND'! 
519 R=R*221+2113 


5298 R=R—INT(R/1P999B)*19999 
53Q RETURN 


89% ''INTEGER'' 

81% GOSUB ''RND''! 
829 I=INT(R*4/1999B) 
83% RETURN 


Summing up Chapter Eight 

This chapter contained a wide variety of problems demonstrating the use of random 
numbers. So many things in our everyday lives seem to occur randomly that we have 
only touched on the TRS-80 Pocket Computer’s use in this type of application. 

A variety of programming techniques were presented, but, once again, we have 
only touched on the possibilities in our solutions to the problems. No doubt, your solu- 
tions were different from ours. That’s the beauty and excitement of problem solving. 
There are many ways to reach a solution. Who is to say which method is best? 


CHAPTER NINE 


Computing Interest 


Money was invented just a moment before borrowing and lending. It never seems to be 
in exactly the right place at the right time. What to do? Borrow until you strike it rich. 
Lend until you need to spend. 

And, of course, the borrowers always have to make some promises to the lenders. 
The chief promise is to give the money back. Another promise is to give back a lot 
more money than was borrowed. That’s the way it is. There is not a lot of charity 
among lenders. 

Computing interest can become a complex problem. You’ll definitely find the 
problems challenging. In this chapter you will learn: 


e how to compute compound interest; 

e how to compute the value of an annuity; 

e how to compute time payment size; 

e how to compute repayment time; 

e how to compute continuous interest; 

e how tocompute time payment schedules; and 

e how to compute the present value of a cash flow. 


Compounding Your Interest 


Suppose you invest $1,000 in an account that pays 2% each month. At the end of the 
month, you will have $1,000, plus 2% of $1,000. That’s $1,020. Next month, you will 
collect 2% interest on the $1,020. Therefore, at the end of the second month, you have 
$1,040.40 in the bank. Why not write a program to see how fast your money grows. 
How long would it take for your money to double its original size at this rate? Remem- 
ber, your interest is compounding each month at 2% per month. 

When you write a program to answer the previous question on money doubling, 
let the variable A represent the amount that you deposit in the bank account. To com- 
pute a new value for A, increase the old value by 2%. 

New amount = Old amount, plus 2% of the old amount 
Orin BASIC, A=A+.02XA 
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In BASIC, the right side of an equality is calculated. The 
result is then assigned to the variable on the left side. 
Therefore, the old amount, A, is multiplied by .02 and 


added to the old amount. This calculated value is then 
placed in the memory assigned to A. 


Your program: 


ae lO 
20 
30 
40 
50 
60 
70 


a. 1% REM A IS AMOUNT IN ACCOUNT 
29 A= 1999 


3 REM ADD INTEREST TO GET NEW A 
49 A= A+ .02*A 


58 PRINT A 


6% REM GO DO IT AGAIN 
7Q GOTO 49% 


When we ran this program we found that after 35 months the amount in the account 
was a fraction of a cent under $2,000. 


Yacht Account 


Catherine owns the ComputerTown Coffee Shop. She is saving her money to buy a 
racing yacht. At the end of each month, she takes $200 to the bank and deposits it in 
her yacht account. The money she deposits earns interest, which is added to her ac- 
count. The amount of interest that the bank adds to her account is 2% of the amount in 
her account during the preceding month. 

How long will it take Catherine to accumulate the $100,000 necessary to start 
her racing career? 
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Hint to Yacht Account Problem 


Let’s compute a few cases to see how Catherine’s money grows month by month. 


Month Amount + 2%XAmount + Deposit New Amount 


0 0 0220 AF 200 = 200 
] 200 + .02x200 ar 200 = 404 
2 404 + 02404 a5 200 = 612.08 


To write a program to solve Catherine’s problem, you will need to store some 
numbers. In particular, you will need to store the amount A, which is the present bal- 
ance in her account. At the end of each month, you will compute a new A. It can be 
stored in the same place as the previous amount. You will also need to keep track of 
the months. Use the variable I to count the months. 


as 10 
20 
30 
40 
50 
60 


ae 18 REM I=MONTHS, A =ACCOUNT AMOUNT 
20 IT =@G@: A=@ 


38 REM COMPUTE NEW A 
49 A= A + .02*A + 299 


59 PAUSE I,A 
69 IF A >= 199999 END 


79 REM INCREMENT MONTH 
8g I = I+1 


99 REM DO IT AGAIN 
19% GOTO 39 
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Time Payment Problem 


If your credit is good, the Friendly Car Dealer will let you take home that sleek beauty 
with the chrome hubcaps. Of course, there will be modest monthly payments and a bit 
of interest on the unpaid balance. 

Can you write a program to keep track of your debt? Let’s say the car costs 
$10,000. The interest rate is 2% per month on the unpaid balance. Your monthly pay- 
ments are to be $250. The program should print the amount still owed each month af- 
ter interest has been added and the payment subtracted. 


Hint to Time Payment 


Let’s do a few month’s worth of calculations to see how it goes. 


Month Amount Owed Amount Plus Amount Plus Interest 
Interest Minus Payment 
1 10,000 10,200 9,950 
2) 9,950 10,149 9,899 
3 9,899 10,097 9,847 


We started off with the principle amount (A=$10,000). Next, we increased A by 
2% to get A + .02 x A. Then we subtracted the payment of $250 to get A+ .02X A — 
250. This is the amount that is owed after the interest has been added and the payment 
deducted. This amount is owed during the next month. We call this amount A for the 
next round of calculations. 

Write a program to calculate the amount owed at the end of each month. Print 
the result. 
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als) fe 
29 


39 
49 


5B 
6B 


79 


89 
99 


REM PRINCIPLE AMOUNT A 


A = 19999 


REM ADD INTEREST 
A= A= 02*A 


REM SUBTRACT PAYMENT 
A = A-259 


PRINT A 


REM DO IT AGAIN 
GOTO 49 


It is easy to make this program more general. You can modify the program so that 
the user can input the principle amount, the interest, and the monthly payment. 


1p 
29 
39 


49 
5g 


69 
79 


INPUT ''AMOUNT?'',A 


INPUT ''RATE?'' R ————_______— Input Ras. a decimal (.02 for 2%) 


INPUT "! PAYMENT?" P 


REM COMPUTE NEW AMOUNT 


A = A+R*A-P 
PRINT A 


GOTO 59 


There is another approach to this problem. If you wrote out the arithmetic in the 
right way, you would notice a nice pattern. Here is what it looks like: 


Month Amount + Interest — Payment 


I A*(1+R)—P 


2 A *(1+R)A2—P*(1+(1+R)) 


3 A *(1+R)A3— P*(1+(1 + R)+(1 + R)A2) 
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N A*(1+R)AN—P(I+(1 + R)t(1 + R)A2+...+C. + R)A(N — 1) 


A bit of algebraic cleverness suffices to show that the balance B owed after N months 
simplifies to: 


B=((A*R—P)*(1+R)AN+P)/R 
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Not simple, but simpler than performing each step. You can use this expression to 
write a program that allows you to avoid all the intermediate steps and to print the 
amount owed after any number of months, N. 


Your program: 


a. 10 
20 
30 
40 
50 
60 
70 
80 


a. 19 INPUT ''AMOUNT?'',A 
29 INPUT ''RATE?'',R ~¢—————____—_—_—- R js inserted as a decimal 


3% INPUT ''PAYMENTS?'' ,P 
49 INPUT ''HOW MANY MONTHS?'' \N (.02 for 2%) 


598 REM AMOUNT OWED AFTER N MONTHS 
68 B = ((A*R-P)*(1+R)AN+P)/R 


7Q@ PRINT ''AMOUNT OWED IS $'';B 


8B GOTO 19 


The Time Payment Equation 


The time payment equation relates the balance B to the initial amount A, the interest 
rate R per time period, the payment P per time period, and the number T of time peri- 
ods that have passed. 


B=((AXR-P)X(1+R)AT+P)/R 


This equation guides a large part of all economic activity. Most consumer credit in- 
volves this equation. 

The time payment equation can be rearranged to get other important formulas. 
If N is the number of payments necessary to pay off an initial debt of amount A, then 
it must be true that the balance B will be equal to zero after N periods. This observa- 
tion leads eventually to the next equation. 


The Payment Size Equation 
P=AXR/(1—(1+R)A(-N)) 


This equation gives the periodic payment P in terms of the initial amount A, the inter- 
est rate R, and the number N of time periods to achieve repayment. 
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Payment Size Problem 


Write a program called “P” that prompts the user to enter the initial amount A, the 
number N of time periods to achieve repayment, and the interest rate R per time pe- 
riod. The program should take these numbers A, N, and R and compute the payment 
size P. The output should be the payment size P. 

Your program: 


as OO RY 
110 
120 
130 
140 
150 
160 


a. 190 Ligh oi 
11Q INPUT ''INITIAL AMOUNT?''j;A 
12@ INPUT ''INTEREST RATE?'';R 
13 INPUT ''PERIODS TO REPAY?'',N 
14g P = A*R/(1-(1+R)A(-N)) 
159 PRINT ''SIZE OF PAYMENT: '';P 
169 END 


The payment size equation can be rearranged when applying logarithms (a 
mathematical notation related to exponents) to get: 


The Repayment Time Equation 
N =LOG(P — A * R)/LOG(1 + R) 


This equation gives the number N of time periods necessary to repay an amount A, 
when the interest rate is R per time period, and the payment is P per time period. The 
equation is written in logarithmic form to take advantage of the logarithm function of 
the Pocket Computer. 


Repayment Time Problem 


Write a program called “T” that prompts the user to input the initial amount A, the 
interest rate R, and the payment size P. The program should compute the number N 
of time periods to achieve repayment. The output should be the number N of time 
periods. 


189 


190 PROBLEM-SOLVING ON THE TRS-80 POCKET COMPUTER 


Your program: 


a. 200 “T” 
210 
220 
230 
240 
250 
260 


a. 299 ''T'! 
219 INPUT ''INITIAL AMOUNT?'',A 
22@ INPUT ''DECIMAL RATE?'',R 
23Q@ INPUT ''PAYMENT SIZE?'' ,P 
249 N = LOG(P—A*R) /LOG(1+R) 

25@ PRINT ''PERIODS TO REPAY: '';N 
26@ END 


Money Grows in More Than One Way 


Some money grows in spurts and jumps. Some money grows steadily and continuously. 
The two ways of growing are related. Consider what happens when you put $100 in the 
local bank. This bank pays 15% interest at the end of each year. For each dollar in- 
vested, $1.15 is returned. At the end of one year, you have 100(1 + .15) = $115 in the 
bank. You made $15. Nice going. That’s pretty good; but, down the street is a bank 
that pays half of the interest at the middle of the year. That is, it compounds your in- 
terest semi-annually. 

Assume that you do move your money down the street. At the end of the year, 
you have 100(1 + .15/2) X (1 + .15/2) = 100 X (1 +.15/2) A 2 = $115.56. That’s 
better, but hold on. There is yet another bank further down the street that will pay you 
your interest every day (compounded daily). At this bank you make 100 X (1 + .1 5/ 
365) A365 = $116.18. That’s a little better yet. But don’t move your money yet. 

All three of the banks discussed pay the interest in spurts and jumps. One bank 
calculated the interest annually, one calculated the interest semiannually, and the 
third calculated the interest daily. 

There is one last bank that will pay you interest every moment. They will com- 
pound your investment continuously. This provides a steady and continuous growth. 


Continuous Interest Problem 


Write a program to compute how much every initial dollar will grow if the annual in- 
terest rate is 15%, but the compounding periods are made smaller and smaller. 
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Hint to Continuous Interest Problem 
The quantity that needs to be computed is (1 + .15/N) A N, where N is allowed to 


grow larger and larger. Does the quantity grow even larger? Does it approach some 
limiting number? 


Your program: 


a. 10 
20 
30 
40 
50 
a. 19N=@Q 
20 N = N+1999 
39 A = (1+.15/N) AN 


4g PRINT N,A 
598 GOTO 29 


When we ran this program, we got these numbers. 


N = 1000 A = 1.161821173 
N = 10000 A = 1.161832936 
N = 100000 A = 1.161834112 


It looks like the numbers may be approaching a limit. Your TRS-80 Pocket Computer 
has a built-in function EXP(X). It is a remarkable and important fact that (1 + .15/ 
N)A N gets closer and closer to EXP(.15) as N gets larger and larger. This same fact 
is true for interest rates other than 15%. 


Continuous Interest Using EXP 
Write a program to compare the values of: 
(1 + R/10000) A 10000 and EXPR 


for values of R = .1, .12, .14, .16, .18, and .2. 
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Your program: 


aan 10 


20 
30 
40 
a. 19 FOR S = 19 TO 29 STEP 2 ~—————— The Pocket Computer can only use 
A ee AVS integral steps ina 
3Q@ PRINT (1+R/1 A1 XP(R 
ms at /1999B) 9299, EXP(R) FOR-NEXT loop 


When you run the program, you will see that the two expressions give you very close 
results. 


Catherine’s Folly Problem 


Catherine wants her racing yacht badly. She can’t wait until she saves up enough 
money to pay cash. She has saved $10,000, but the ship costs $100,000. The yacht 
dealer is a kindly fellow and will let her have the boat with a down payment of $10,000 
and a payment of $2,000 per month. The dealer will charge her 2% of the unpaid bal- 
ance during each preceding month. How long will it take Catherine to pay off the boat, 
and how much will she pay to the dealer including interest? 


Hint to Catherine’s Folly Problem 


This problem is similar to the time payment problem. The main difference is that we 
want to add a counter to count the months, and an accumulator to store all the pay- 
ments. Write a program to do this. 


Your program: 


a. 10 
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a. Wehave added a month counter (1) and an accumulator (Q) to the time payment 
program. 


1g REM MONTH I, TOTAL PAID Q 
PA Fa el PO Ohio 


39 A = 99099 :REM AMOUNT OWED (S) 
49 R = .@2 :REM INTEREST RATE (R) 
59 P = 2999 :REM PAYMENT (P) 


69 PRINT 1,Q 

79 A = A+R*A—P :REM NEW AMOUNT 

88 Q = Q+P :REM ADD PAYMENT TO TOTAL 

99 I = I+1 :REM INCREMENT MONTH COUNTER 


199 GOTO 69 


Present Value of a Cash Flow 


Would you rather have a bank account from which you can withdraw $100 each 
month or a business that pays you $100 per month? It really doesn’t matter much, 
does it? From the accountant’s point of view, one is just as good as the other. The fact 
that these situations have the same value is the basis for an ingenious method for com- 
paring seemingly incomparable situations which is called present value analysis. Here 
is how it works. 

Suppose that you are offered a bond that will pay you $1,000 in 10 years. What 
is a fair price for the bond? You certainly wouldn’t pay $1,000. If you keep the $1,000, 
you can put it in the bank or some other investment and earn interest for 10 years. It 
would not benefit you to waste all that interest for 10 years. The fair price of the bond 
should take into account all the interest that you can earn during the length of the 
bond’s life. 

Suppose that the interest rate that you can earn by investing your $1,000 is 12% 
compounded yearly. What amount invested now at that rate would grow to be $1,000 
after 10 years? Call this amount X for the moment. This amount X will be a fair price 
for the bond, since, by investing the amount X, you can withdraw $1,000 after 10 
years. 

Having the amount X right now is equivalent to getting $1,000 in 10 years. We 
know that: 


X X (1 +.12) A 10 = 1000 


A bit of algebra yields: X = 1000/(1.12) A 10 = 321.97 
Therefore, the present value of the bond is $321.97. This method works for more com- 
plex cash flows. 

In a home, as well as in a business, you are interested in how much money is 
coming in and how much money is going out. Money may come in from more than one 


source, and it certainly flows out to many different destinations. The flow of money to 


and from a home or business is referred to as its cash flow. 
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How much should you pay now for the following package of two bonds? The first 
bond yields $2,000 in 5 years, and the second bond yields $3,000 in 10 years. Assume a 


12% interest rate prevails. 
The present amount that you need to deposit at 12% interest so that you can 


withdraw $2,000 in 5 years is given by the expression: 
2000/1.12 A 5 = 1134.85 
The present amount that you need to deposit to get $3,000 in 10 years is given by: 
- 3000/1.12 A 10 = 965.92 


The present value of the two bonds is the sum of these amounts, or $2,100.77. This is 
the amount you need to invest now at 12% to furnish the same cash flow as the two 
bonds. The present value of a cash or income flow (money coming in as opposed to 
money going out) depends heavily on the assumed interest rate. 


Present Value of a Cash Flow Problem 


Write a program that takes as input the expected interest rate and the amounts and 
time to maturity of any number of bonds. The program should print the present value 
of the bond package. 


Hint to Present Value of a Cash Flow Problem 


The central computation in this problem takes the future value F of the bond, the time 
T to maturity, and the expected interest rate R. It computes the present value P of the 
bond. In BASIC it is: 


P=F/(1+R)AT 


The present values P of the individual bonds in the package must be added to get the 
present value of the package. It will also be necessary to tell the program when we 
have finished entering all the input variables. Since bonds of future value 0 will not oc- 
cur, you can use this as a signal that you are through entering data. 

Your program: 


a. 10 


COMPUTING INTEREST 


a. 18 REM P ACCUMULATES INDIVIDUAL PRESENT VALUES 
20: (PaO 


39 INPUT ''INTEREST RATE?'',R 
4% INPUT ''FUTURE VALUE OF BOND?'',F 


5@ REM CHECK IF DONE 
69 IF F = @ THEN 199 


79; INPUT “TIME TO MATURITY?" "57 


8G P = P+F/(1+R)AT 


98 GOTO 49 
199 PRINT ''THE PRESENT VALUE IS '',P 
Stock Dividend Values 


Here are two more deals for you. The first deal is: 

You can buy stock in Acme Technology Company, a high growth computer 
manufacturer. There is good reason to believe that each dollar’s worth of Acme stock 
will pay the following dividends at the end of each of the next 5 years. 


Year 1 2 3 4 5 
Dividend 10 .20 .30 .40 .60 


The second deal is: 

You can buy stock in Bolt Bubble Gum Company. There is good reason to be- 
lieve that each dollar’s worth of stock will pay the following dividends at the end of 
each of the next 5 years. 


Year 1 2 3 4 5 
Dividend 60 .40 .20 .10 .10 


Which of these cash flows has the highest present value? Assume a 15% com- 
pound annual interest rate. 


Hint to Big Deal Problem 


What we’ve got here is a fixed interest rate of 15% per year, and various amounts ar- 
riving at various times in the future. This is exactly what the previous program deals 
with. Use the previous program for the present value of a cash flow to do this problem. 
Run each deal separately and compare the results: 


Present Value for Acme 
Present Value for Bolt 
has the greater present value. 
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Solution to Big Deal Problem 


When you run the program for present value of a cash flow, it asks “INTEREST 
RATE?” You enter .15 as the interest rate. Next it asks “FUTURE VALUE OF 
BOND?” You enter .1, which is Acme’s first yearly dividend. Next the computer asks 
“TIME TO MATURITY?”. You enter 1, which is the time until you receive the divi- 
dend. Enter each of the other dividends and times in a similar manner. When all of 
Acme’s dividends are entered, type 0 to get the present value of the future dividends. 
We got .96 for the present value of Acme’s expected dividends. Run the program a 
second time to find the present value of Bolt’s dividends. We got 1.06 as the present 
value of Bolt’s expected future dividends. Bolt Bubble Gum has the greatest present 
value. Although it receives less total money, it receives it sooner. That’s good. 


Present Value for Acme is .96 
Present Value for Bolt is 1.06 
Bolt Bubble Gum Company has the greater present value. 


Present Value with Changing Interest Rates Problem 


Suppose some economic forecasters project a declining interest rate for the next 5 
years. Here are their latest figures. 


Year 1 2 3 4 5 
Rate 15% 14% 12% 10% 8% 


These are the rates that you can expect to earn during each of the next 5 years on your 
investments. You should take this into account when computing present value. 

We need a program which computes the present value of an amount to be re- 
ceived in 5 years, but which takes into account the changing interest rates. 


Hint to Present Value with Changing Interest Rates Problem 


Compute an example by hand to see what is required in the computer program. Sup- 
pose that you will receive $1,000 in 5 years. What amount needs to be invested now, 
assuming the five previously projected interest rates over the next 5 years, in order to 
withdraw $1,000 at the end of that time. Call the present amount P. Then P will grow 
to P + R X P, or (1 + R) X Peach year, where R is the rate for that year. Here is how 
the calculations look: 


Year Amount at Start Amount at End 
of Year of Year 
1 P (1+.15)*P 
2 ise 15) P (1 +.15)*(1+.14) *P 


3 (1 +.15)*(1+.14)*P 9 (1 +..15) *(1 +.14) *(1 +12) *P 


COMPUTING INTEREST 


After 5 years P will have grown to: 


(1 +.15) * (1 +.14) * (1 +.12) * (1 + 10) * (1 + .08) * P= 1000 


You can see that: 


P = 1000/((1 + .15) * (1 +.14) * (1 +12) * (1 + .10) * (1 + .08)) 


The general equation for P is: 


P=F/((1+R)*(Q+S)*(1+T)*GQ+U)*(+Y)) 


where P is the present value 
F is the future value 
R,S, T, U, and V are the interest 
rates for each of the 5 years 


Your program: 


BLN) 


REM R,S,T,U,V ARE INTEREST RATES 


ode nats) 


R= .15: S=.14: T=.12: U=.10: V=.08 


REM F IS THE FUTURE AMOUNT 
EN PU Tere 


REM COMPUTE PRESENT P FOR F 
P= F/((1+R)*(1+S)*(14+T) *(14+U)*(1+V) ) 


PRINT ''PRESENT VALUE = '';P 


END 


197 


198 PROBLEM-SOLVING ON THE TRS-80 POCKET COMPUTER 


Summing Up Chapter Nine 


The TRS-80 Pocket Computer performs complex business computations easily. In this 
chapter we saw how to do the following calculations. 


compute the future value of an investment earning compound interest 
with: 

A=AXR XA where A is the amount and R is the rate; 

compute the future value of an annuity with A=A+R*A+D, whereA 
and R are the same as above and D is the deposit; 

compute time payment size with: P= A *R/(1 — (1 +R) A (-N); 
compute repayment time with: N= LOG(P — A * R)/LOG(1 + R); 
compute continuous interest with: A = (1 + R/N) A N or EXP(R); 
compute time payment schedules with: A= A + R * A — P, where A and 
R are as above and P is the payment made; 

compute the present value of a cash flow with P = F/(1+ R) A T, where P 
is the present value, F is the future value, R is the rate, and T is the time to 
maturity; 

compute the present value when the rate is changing with: 

PS (CebeRol) ete RD) s(t IRS). oe. *(1 + Rn)) 
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CHAPTER TEN 


Storing, Sorting, and Searching 
(Or How to Make Sure You Know 
Where It’s At) 


The only way to keep your sanity in this increasingly complicated world is to get things 
into some kind of order. Rearrange the junk in the miscellaneous drawer. File all those 
clippings in the TO-BE-FILED folder. Add all the new names and telephone numbers 
in your address book (or in your Pocket Computer data file). Put all the bills into al- 
phabetical order. Put the names of customers into alphabetical order. Well, maybe 
tomorrow, or the next day, when you have some spare time with nothing better to do. 

Computers are renowned for their orderly and efficient ways. Can you use your 
friendly TRS-80 Pocket Computer to help get things in order at home and at work? Of 
course you can. In this chapter you will learn how to: 


e build lists; 

e add, delete, and move elements within those lists; 
e puta list into proper numeric order; and 

e search for elements within a list. 
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Full House Problem 


Before we start storing, sorting, and searching lists of data, let’s find out how much 
room we have in the Pocket Computer to store things. Write a quick program that 
stores the number 1 into every memory location. Start with memory A(2), then A(3), 
A(4), etc., until all the available memory locations are full. The program should print 
out the number of each memory location just before it is filled with the 1. 

Remember, the program is filling memory locations from one end and the other 
is used to store data. If you write a short program, there will be more memories avail- 
able for data. 


as 


e Which of the following will happen when all the available memories are 
filled with ones? 
O Anerror message will be displayed 
O1’s will be writen over the program memory 
OO The RUN will stop automatically when the program memories 
are reached, but there will be no error message. 
e How long will it take to fill all the available memories? 
minutes. 
e What will be the subscript of the last memory filled with a one? 


Se 


ne 
ot Pp, 

Ora, 
™m 


a) 
Vhs 
2 AS 
eS <i en 


Hint to Full House Problem 


Be careful not to use any variables other than A. These memories will be filled with 
data when the program runs: 


A(1) A(2) A(3) A(4)............ Program 


Use A=A(1) as the only variable in the program. Keep it short so that you can store 
lots of data. 
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Put your Full House Program here 


By, 10) 


a. “119 A=" 
20 PAUSE A 
3B A(A)=1 
4g A=A+1 
58 GOTO 29 


You could save a little space by writing this program on two lines. 


19 A=1 
2Q PAUSE A: A(A)=1: A=A+1: GOTO 29 


e When all available memories were filled with ones: 
An error message was displayed 


(ERROR CODE #4 - Insufficient memory) 


e It took about 5 minutes to run the complete program. 
e The last memory filled with a 1 was A(199). 


When you have a short program, you can use lots of memories to store data. If 
certain memory locations are filled with different numbers, can you write a program 
that will pick out the largest of the numbers? 


Number Search Problem 


Write a program that will let you input numbers into memories A(1) through A(10). 
The program must then search through the memories and find and print the largest of 
the ten numbers that you have input. 
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Hint To Number Search Problem 


Let’s take a look. Hmmm, A(1) is looked at first. At the beginning, it is the biggest 
number (since you haven’t looked at any of the others). You should probably store 
A(1) somewhere. Let M = A(1). M will be the biggest number found at any stage of 
the program. 


She ONES oor BEE 


Next, check A(2). Is it bigger than M? If it is, then you should store the contents 
of A(2) in M. Otherwise, go right on to look at A(3). 

At each step, compare the contents of a memory with M, which contains the big- 
gest number found so far. 


eae ere 


Solution to Number Search Problem 


1@ REM STORE NUMBERS IN MEMORY 


29 FOR X = 1 TO 19 
39 INPUT A(X) 
49 NEXT X 


5Q REM A(1) IS INITIALLY THE BIGGEST 
6B M=A(1) 


79 REM COMPARE THE REST WITH M 
89 FOR X=2 TO 19 

9G IF A(X)>M LET M=A(X) 

199 NEXT X 


119 PRINT M 


A different approach would be to start with M as a number so small that all 10 
numbers stored in memory would be larger. Then the numbers would be compared 
with M, starting with A(1). For practical purposes, the number —999999 is probably 
small enough. 
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Second Solution to Number Search Problem 


1Q REM STORE NUMBERS IN MEMORY 
2@ FOR X=1 TO 19 

3Q INPUT A(X) 

49 NEXT X 


5%@ REM START WITH SMALL M 
69 M=—999999 


7 REM COMPARE TEN NUMBERS WITH M 
88 FOR X=1 TO 19 

99 IF A(X)>M LET M=A(X) 

199 NEXT X 


119 PRINT M 


The Pocket Computer finds the largest number very fast. Of course, it would 
take longer if there were more numbers. It would take it even longer if it had to re- 
arrange the numbers in order from largest to smallest. 


Out of Order Problem 


Suppose that you have a list of numbers and would like to find out if they are in as- 
cending order or not. You would need a program that checks whether each number 
examined is at least as big as the previous number. The program should allow you to 
input the numbers. It should then check whether the number input is at least as big as 
the previous number. If the input number is smaller than the previous one, the pro- 
gram should print “OUT OF ORDER” and stop. 

There is one minor constraint. Only three data memories can be used. You may 
choose any three memories but no more than three. 


Hint to Out of Order Problem 


It will be necessary to store the old number, the new number, and the message “OUT 
OF ORDER”. After the new number has been checked, it then becomes the old num- 
ber, and a newer number is input. 

The first number input is always in order. What old number should you compare 
it with? How about a number less than any number that might be input? You can use 
—999999 again for this purpose. 
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This flow chart might help you with your program. 


We will store the old number in X, the new number in Y, and the message in Z$. We 
will start X off as the large negative number —999999. This ensures that the first 


LET OLD 
NUMBER = 
-999999 


INPUT NEW 
NUMBER 


LET OLD 
NUMBER = 
NEW NUMBER 


Solution to Out of Order Problem 


number input will be greater than X. 


The Program 


1g X=-999999 


29 
39 


49 
59 


6G 


79 


ENPUT..¥- 
IF Y<X THEN 69 


X=Y 
GOTO 29 


PRINT '"OUT OF ORDER’ ' 


END Stop 


From the Flowchart 


Let old number = —999999 


Input new number 

Is new number out of order? 

If yes, go to line 60 

Let old number = new number 
Go back for new number 


Print “‘out of order” 
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Cycle Up Problem 


Have you ever noticed how often things get out of order? There are some days when 
the whole world seems off a notch. For times like that, you may need a little routine to 
put things right again. See if you can write a routine which shifts the contents of A(1) 
to A(2), the contents of A(2) to A(3), the contents of A(3) to A(4), and so on, until the 
contents of A(19) go into A(20) and the contents of A(20) go into A(1). 


ACD pee (2) AG) AC) eA nee ose A(19) »A(20)- 


Around the World in 20 Cycles 


Hint for Cycle Up Problem 


If you can save a copy of A(20), then you can store A(19) in A(20). Once A(19) has 
been saved in A(20), you can store A(18) in A(19). Eventually, A(1) will be stored in 
A(2). This will then allow you to place the copy you made of A(20) into A(1). All the 
data have been moved without losing any. 


2 3 19 20 
A(Q0) sas (19) oe A(R os othe AGj=a—— AQ) <_—A() 


1 Temporary Storage 21 


It is done in reverse order to avoid losing data that have not yet been moved. 


Solution to Cycle Up Problem 


18 REM SAVE A COPY OF A(20) 
2@ Z=A(20) 


3Q REM Y WILL INDEX THE LOCATIONS 
4Q FOR Y=2@ TO 2 STEP —1 


5Q@ REM SHIFT ALL CONTENTS UP 
68 A(Y)=A(Y-1) 
79 NEXT Y 


89 REM NOW STORE THE CONTENTS OF A(20) 
99 A(1)=Z 


Of course you must have some data in memories A(1) through A(20) before you 
can move it. This can be done through another FOR-NEXT loop. 


1 REM LOAD DATA 
2 FOR Y=1 TO 29 
3. INPUT A(Y) 
4 NEXT Y 
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If you want to see the final results, you can print them out with a PAUSE state- 
ment ina FOR-NEXT loop. 


19@ FOR Y=1 TO 29 
119 PAUSE ''A('';Y;'')="'; acy) 
129 NEXT Y 


Reverse Play Problem 


Thurston is a fine fellow and a good programmer. He has only one apparent fault. 
Thurston really never did learn to tell his left hand from his right hand. That causes 
some problems, as you can imagine. When Thurston writes programs, he tends to store 
the data in the wrong order. Since Thurston is such a great person, we will program 
around his backward data. We need a program that takes the numbers in locations 
A(1), A(2), A(3) ...., A(20) and puts the numbers in the opposite order. The con- 
tents of A(1) goes to A(20), the contents of A(2) goes to A(19), and so on, until the 
contents of A(20) goes to A(1). 


Hint to Reverse Play Problem 


The program will be similar to the Cycle Up Program. Watch out that you don’t lose 
A(20) when you store A(1). Save a spare copy of A(20). 


Solution to Reverse Play Problem 


19 REM LET Z INDEX THE LOCATIONS 
28 FOR Z=1 TO 19 


39 REM Y WILL RUN FROM 29 TO 11 
49 Y=21-Z 


5@ REM STORE A COPY OF A(Y) IN X 
69 X=A(Y) 


79 REM TRANSFER A(Z) TO A(Y) 
89 A(Y)=A(Z) 


99 REM TRANSFER X TO A(Z) 
19B A(Z)=x 
11Q@ NEXT Z 


If you were to trace the action that takes place as the FOR-NEXT loop is exe- 
cuted, the results would be as shown in the following table. Of course, you will have to 
put some numbers in A(1) through A(20) before reversing the data. 
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After ten times through the loop, the data have been completely reversed. 


Sort of a Problem Problem 


Sorting a set of numbers is one of the most tedious jobs a person can do. Try putting 
this set of numbers in order: 


127, 335192019475 127-4156, 10, 117 


Even with only ten numbers it is a disagreeable job. One hundred numbers can 
be painful, and one thousand numbers can be a trauma. However, sorting is one of the 
most common and important jobs done by computers. Can you write a program that 
takes as input 20 numbers, then arranges them in order, and stores them in order in 
registers A(27) through A(46)? 
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Hint for Sort of a Problem Problem 


Sorting by Insertion 


Have you ever played bridge, or sorted papers alphabetically? What one usually does 
is to start at one end of the cards or papers, say the low end. The first card is left where 
it is. Now consider the second card. It is inserted before or after the first card depend- 
ing on its value. Now consider the third card. It is inserted at the appropriate place 
among the first two cards. The process continues until all the cards have been inserted 
among the previously sorted cards. 

To make a computer version of the insertion sort, we must first decide where we 
will store the numbers to be sorted. Let’s store them in memories A(1), A(2),..., 
A(20). Compare A(2) with A(1). If A(2) < A(1), then we wish to take A(2) out of its 
present position and put it in the first position. 


, i 
A(1)—A(2)  A(3) A(4)— A(5)... 
To do this, we must move the contents of A(1) to A(2), and A(2) to A(1). 
In the next step we will compare A(3) with A(1) and A(2). We want the con- 


tents of A(3) to replace the contents of the first location whose contents are greater 
than or equal to A(3). 


N() . SAO\e Ae oad) =A ee 


Similarly, in each succeeding step we will compare an item with each previous 
item and insert it at the first location whose contents are greater than or equal to it. 
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Solution to Sort of a Problem Problem 


Insertion Sort 


The first thing that is needed is a routine which inputs and stores the items to be 
sorted. We used multiple statements on some lines to make the program shorter. 


19 REM INPUT THE ITEMS TO BE SORTED 
2% FOR Z=1 TO 29: INPUT A(Z): NEXT Z@ 


The heart of the routine involves comparing each item with the set of previously 
sorted items and inserting it among them at the appropriate place. 

Step 1 
The item in A(1) may be considered to be a rather small set of 
sorted items. 

Step 2 
Compare the item in A(2) with the item in A(1). If A(1) <= 
A(2), then the items are in the proper order and we can deal with 
the item in A(3). But, if A(2) < A(1), then the item in A(2) must 
be inserted at A(1), and the item at A(1) must be moved up to 
A(2). 

Step 3 
Compare the item in A(3) with the items in A(1) and A(2). Ifit is 
smaller than one of these previous items, then it is inserted at that 
spot and those above that spot are moved up to fill the gap left by 
A(3). 

Other steps 
The program continues in this way until each item has been com- 
pared with all the previous positions and inserted into its proper 
place. Here is a crude first attempt at a program. 


19 REM INPUT THE ITEMS TO BE SORTED 
2Q FOR Z=1 TO 2@: INPUT A(Z): NEXT Z 


3 W=A(2): REM SAVE A COPY OF A(2) 
49 IF W<A(1) LET A(2)=A(1): A(1)=W 


5@ REM NOW COMPARE AND INSERT A(3) 

6G W=A(3) 

79 IF W<A(1) LET A(3)=A(2): A(2)=A(1):A(1)=W 
8G IF W<A(2) LET A(3)=A(2): A(2)=W 


99 REM NOW COMPARE AND INSERT A(4) 

189 W=A(4) 

119 IF W<A(1) LET A(4)=A(3): A(3)=A(2):A(2) =A(1): 
A(1)=W 

129 IF W<A(2) LET A(4)=A(3): A(3)=A(2):A(2) =W 

139 IF W<A(3) LET A(4)=A(3): A(3)=W 


149 REM NOW COMPARE AND INSERT A(5) 


...and so on. 
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A program like this would work in principle, but not in practice. The final lines 
of this program would be many and long. This first attempt gives us something to work 
on and improve. 

We notice that the program falls into blocks, each having very similar structure. 
Lines 90 to 130 form a typical block. A FOR-NEXT loop could be used for the LET 
statement and the statements to the right of the LET statement to simplify each line. 
We will put the block that moves the data away in a subroutine. 

Here is how our new program looks. 


5 REM INSERTION SORT 


18 REM INPUT 2% ITEMS TO BE SORTED 
2@ FOR Z=1 TO 29: INPUT A(Z): NEXT Z 


25 REM NOW SORT THEM 
3Q FOR X=2 TO 29 
48 W=A(X) 


45 REM COMPARE W WITH A(Y) AND INSERT 
50 FOR Y=1 TO X-1 

6g IF W<A(Y) GOSUB 199 

70 NEXT Y 

89 NEXT X 

99 END 


95 REM MOVE SUBROUTINE 
118 FOR Z=X TO Y+1 STEP—1:A(Z)=A(Z—1):NEXT Z 
129 A(Y)=W:Y=X—-1: RETURN 


Let’s make the program a little more general now. Instead of providing for 20 
data items, it would be desirable to let you put in the number of data items that you 
desire. 


5 REM INPUT DATA 
18 INPUT ''HOW MANY NUMBERS?'';N 
29 FOR Z=1 TO N: INPUT A(Z):NEXT Z 


25 REM NOW SORT THEM 

39 FOR X=2 TON 

49  W=A(X): REM SAVE A COPY OF A(X) 

59 Y=X-1: REM INDEX Y WILL COUNT DOWN 

68 IF W>=A(Y) THEN 99: REM INSERT WHEN W 
CAN SINK NO FARTHER 


65 REM IF W<A(Y) THEN CONTINUE 

78 A(Y+1)=A(Y): REM SHIFT UP ONE 

89 IF Y>Q THEN 69: REM REPEAT UNTIL Y=9 
98 A(Y+1)=W: REM INSERT W 

19@ NEXT X 
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Hint for Sort of a Problem Problem 
Exchange Sort 


The choir director used this method. He wants to line up the choir boys in a row and 
then would move down the row exchanging adjacent boys so that the smaller stood on 
the left. After a few passes up the row, all the boys would be ordered from smallest to 
tallest. 

To make a computer version, the numbers to be sorted must be stored, say in 
memory locations A(1), A(2) ... A(20). Begin with the first pair. If A(1) < = A(2), 
then move on to the next pair. But, if A(1) > A(2), then exchange the contents of 
A(1) and A(2). Then move on and check the next pair. If A(2) < = A(3), then move 
on to the next pair. But, if A(2) > A(30), exchange their contents. Continue in this 
way until no further changes occur. The numbers are then in order. 


Solution to Sort of a Problem Problem 
Exchange Sort 


Enter the numbers that you want to sort in memories A(1) through A(20). You want 
to examine each pair and exchange the pair, if necessary, so that the smaller is in the 
lower numbered location. Do this until no further exchanges occur. When this hap- 
pens, the items are in proper order. 


5 REM INPUT 29 ITEMS 
19 FOR Z=1 TO 2%: INPUT A(Z):NEXT 2 
2Q Y=@: REM Y WILL COUNT EXCHANGES 


25 REM RUN THROUGH ALL PAIRS 
3 FOR X=1 TO 19 
49  W=A(X): REM SAVE A COPY OF A(X) 


45 REM IF A(X)<=A(X+1) GO TO NEXT PAIR 
59 IF W<=A(X+1) THEN 99 


55 REM IF A(X)>A(X+1) EXCHANGE 
68 A(X)=A(X+1) 

70 A(X+1)=W 

88  Y=Y+1: REM COUNT EXCHANGES 


99 NEXT X 


95 REM IF NO EXCHANGES, ITEMS ARE IN ORDER 
199 IF Y= END 


185 REM OTHERWISE RESET COUNTER AND DO AGAIN 
119 Y=9 
128 GOTO 39 


This program can be made more efficient. Consider what happens when the big- 
gest item is encountered. It is exchanged with each succeeding item until it rises to the 
top of the list. On the next pass the next largest item rises as far as it can in the list. No 
later item will rise further than the position of the last exchange. The last exchange 
made on any pass marks the top of the unsorted items. Those items above this point are 
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in their final position and need not be considered in later passes through the list. You 
can use this observation by recording the last exchange position in T and ending the 
pass at that point. Here are the changes and additions to improve the previous 


program: 
22 T = 19 
39 FOR X=1 TOT 
82 S = xX+1 
115 T=s 


Since the items rise like bubbles in the list, this type of sort is often called a 
“bubble sort.” 


Hint to Sort of a Problem Problem 


Selection Sort 


This method is the one that the coach used to find the biggest football team. He looked 
at all the players until he found the biggest. The biggest was called aside. Next, the 
coach looked at the remaining players until he found the biggest of the remaining 
players. That player was called to the side of the previously chosen player. This contin- 
ued until all the players were in the new line, ordered from the smallest to the biggest. 
The coach could have called out the smallest players first just as easily. 


Solution to Sort of a Problem Problem 


Selection Sort 


Once again, input 20 numbers and place them in memories A(1) through A(20). Then 
run through the list and find the smallest item. Store it in A(31). Next run through the 
list and find the next smallest. Store it in A(32). There are two difficulties to be con- 
sidered. First, how does one find the smallest item in the list? Second, how does one 
avoid finding the first item again on the second run through the list? 

To find the smallest item in a list you can hold a competition. The winner of any 
round competes at the next round. Store the current lowest number in W. To start, let 
A(1) be lowest. W = A(1). Next, compare W with A(2), A(3), and so on until we find 
a lower number, which is then stored in W. This new W is compared to the items re- 
maining. At the end of the run through the list, W will contain the lowest number in 
the list. 

Now you want to take this number out of the list so that it does not compete in 
the search for the second lowest number. The easiest thing to do is replace that item 
with a number so large that it is effectively infinite. Then it will not be considered be- 
fore the other numbers in the list have been sorted out. Here is a routine which uses 
these observations. 


5 REM INPUT THE ITEMS 
18 FOR X=1 TO 29:INPUT A(X):NEXT X 
29 Z=3Q:REM Z COUNTS POSITION IN LIST 
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3 FOR V=1 TO 2@:REM EACH PASS FINDS ONE ITEM 

49  W=A(1): Y=1:REM A(1) STARTS AS SMALLEST 

5G FOR X=2 TO 2: REM SEARCH LIST 

69 IF W<=A(X) THEN 99: REM W STILL SMALLEST 

79 W=A(X): REM A NEW SMALLEST 

89 Y=X: REM STORE POSITION OF SMALLEST IN Y 

99 NEXT X 

95 REM SET A(Y) TO INFINITY 

198  A(yY)=999999 

105 REM STORE NEW NUMBER W 

119 zZ=zZ4+1 

129 A(Z)=W 

13Q NEXT V 

Hint to Sort of a Problem Problem 

Enumeration Sort 


Here is a method you might use if the photographer tells your group to line up by 
height. Just count how many persons are shorter than you. They must all stand to your 
left. If five people are shorter than you, then you must be the sixth in line. 


Solution to Sort of a Problem Problem 


Enumeration Sort 


For each item, you wish to count the number of items smaller than the given item. The 
final position of the item will be the number of smaller items, plus 1. Store the position 
in a separate list. Store the final position number of A(1) at A(31), the position num- 
ber of A(2) at A(32), and so on. For example, if the final position of A(1) is fifth, then 
A(31) = 5. Here is a program based on this approach. 


5 REM INPUT 2% NUMBERS 

19 FOR Z=1 TO 29: INPUT A(Z): NEXT Z 
15 REM A(31),... ,A(5@) ARE COUNTERS 
28 FOR Z=31 TO 5B: A(Z)=1:NEXT Z 
25 REM DETERMINE HOW MANY ITEMS ARE SMALLER THAN A(Z) 
39 FOR Z=1 TO 29 
35 REM COMPARE A(Z) WITH EACH A(Y) 
49 FOR Y=1 TO 28 
59 IF A(Y)<A(Z) LET A(Z+3@) =A)Z+3@)+1 
69 NEXT Y 
79 NEXT Z 
89 REM PRINT POSITION NUMBERS 
99 FOR Z=31 TO 59: PRINT A(Z):NEXT Z 

Big Merger Problem 


Lornalam and Smalley are cooperating on the checkbook this month. Lornalam took 
half the pile of checks and arranged them by the day of the year on which they were 
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cashed. Smalley did the same with his half. Now they need to merge the two ordered 
piles into a single ordered pile. 

It would be interesting to make a computer version of this situation. Suppose 
that the dates of Lornalam’s 10 checks have been ordered and stored in A(1) through 
A(10), and that Smalley’s dates have been ordered and stored in A(11) through 
A(20). The memory locations each contain a number between 1 and 356 which repre- 
sents the day of the year on which the check was cashed. Write a program which 
merges these two sequences and stores the result in A(31) through A(50). 


Hint to Big Merger Problem 


Check the first element in each list. Which is smaller, A(1) or A(11)? If, for example, 
A(1) is the smallest, then the contents of A(1) becomes the first element A(31) of the 
merged list. Next, consider A(2) and A(11). Which is the smaller? The smaller goes 
into A(32). If, for example, A(11) is the smallest, then you would next compare A(2) 
and A(12). 

If one of the lists runs out, then all the elements in the remaining list go to the 
end of the merged list. 


Solution to Big Merger Problem 


The program has some small subtasks. First, the front items in the two lists are com- 
pared. Next, the smaller item is transferred to the merged list. Next, the index for the 
list from which the smallest item came is raised by 1 to point to the next item in that 
list. Also, the index in the merged list must be raised by | to point to the next vacant 
position. It is also necessary to check whether you are at the end of the list. If you are 
at the end of the list, then all the remaining items in the other list must be transferred 
to the end of the merged list. 


5 REM INPUT THE TWO LISTS 
19 FOR Z=1 TO 19:INPUT A(Z):NEXT Z 
29 FOR Y=11 TO 20 INPUT A(Y):NEXT Y 


25 REM SET LIST POINTERS 

38 Z=1:Y=11:X=31 

35 REM Z INDEXES THE FIRST LIST, Y THE SECOND LIST, 
X THE MERGED LIST 


45 REM CHECK IF EITHER LIST IS DONE 
59 IF Z>19 THEN 115 
69 IF Y>29 THEN 195 


65 REM F/ND AND STORE SMALLEST, THEN RESET POINTERS 
7@ IF A(Z)<A(Y) LET A(X)=A(Z): Z=Z+1:GOTO 99 

89 IF A(Y)<=A(Z) LET A(X)=A(Y):Y=¥ +1 

9G X=X+1 

189 GOTO 5g 


195 REM ADD REMAINDER OF FIRST LIST TO MERGED LIST 
118 FOR W=Z TO 19:A(X)=A(W):X=X+1:NEXT W:END 
115 REM ADD REMAINDER OF SECOND LIST TO MERGED LIST 
129 FOR W=Y TO 29:A(X)=A(W):X=X+1:NEXT W:END 


125 REM DISPLAY THE RESULTS 
138 FOR X=31 TO 5Q:PRINT A(X):NEXT xX 
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We input the following lists: 


A perfectly ordered, merged list 


Summing Up Chapter Ten 


You learned in this chapter that the TRS-80 Pocket Computer is adept at creating and 
manipulating data. It can search through lists of numbers, pick out the largest or 
smallest number, rearrange the numbers in ascending or descending order, reverse 
their order, or merge numbers from lists into a single ordered list. We haven’t ex- 
hausted the Pocket Computer’s manipulating capabilities, but we’ve given you an in- 
kling of what can be done. 

You, no doubt, will think of other uses of the Pocket Computer’s manipulating 
abilities. 
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CHAPTER ELEVEN 


Chaining Programs from Cassette 


The Pocket Computer has enough internal memory to handle most of the tasks that 
you will find for it. But memory storage is like money; no amount ever seems like 
enough. You will certainly find, some sunny morning, that your program is too big and 
has just too much data to store in the internal memory. When that day comes, you will 
be delighted to find that the folks at Radio Shack have thoughtfully furnished the 
Pocket Computer with the ability to store information outside the machine. 
In Chapters 3 and 4 you learned how to SAVE and LOAD programs and data 
¢ on and from cassette tape. This chapter tells how to CHAIN (or connect) a program 
< stored on cassette tape to a program currently in memory. However, there are several 
(_ precautions and restrictions that must be observed. 
You will learn: 


e how to use the CHAIN statement; 

¢ how the original section of a program is replaced by the chained section; 
and 

e how variable values are passed from an original section of a long program 
to the chained section. 


Chain Gang 


A chain is useful for pulling up an anchor, or for holding up a swing, or for holding a 
large dog. Chains are certainly useful. Your TRS-80 Pocket Computer comes with a 
handy CHAIN statement. Like other chains it allows you to pull in a needed item. 

In the computer case, the CHAIN statement pulls in programs from the cassette 

/ recorder and runs them. It allows you to break very large programs that won’t entirely 
fit in internal memory into smaller ones, then call and run the pieces. 

To keep things simple, we will not use large programs in our example. However, 
you Can use your imagination as we demonstrate how the CHAIN statement works. 
First we need to have a program on the cassette. We will later use the CHAIN state- 
ment to call and run this program. 
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The Program to be CHAINed 


19 PRINT ''CHAIN WORKS''! 
2Q PRINT ''AND WORKS'' 
3Q ''PUNT'':PRINT ''AND WORKS'' 


Load the program to be chained into the computer’s memory. Save this microprogram 
on cassette under the name “MICRO”, using the command: 


CSAVE ''MICRO!! 
Clear the computer’s internal memory by typing: 
NEW 


“MICRO” is now on the cassette but not in the computer. 

Now use your imagination. Think of the next program as being a very long one 
that just fits in the computer’s internal memory. It will use the CHAIN statement to 
call in the “MICRO” program that you just recorded and run it. 


The BIG Program Using CHAIN 


1@ PRINT ''DOES CHAIN WORK?'' 
2@ CHAIN ''MICRO'' 


Enter this program in the computer’s memory. Since it will chain the program on cas- 
sette, you must prepare the recorder so that “MICRO” will be ready to run. 


1. Rewind the recorder to the beginning of “MICRO”. 
2. Press the PLAY button on the recorder. 


Now all is ready. Run the program in the computer. It will print the question: 


DOES CHAIN WORK? 


Press the ENTER key and the second program will be chained and run. You will see: 


CHAIN WORKS 
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Press ENTER 


AND WORKS 


Press ENTER 


AND WORKS 


Notice line 30 of the program to be chained. We used a label “PUNT” that 
f “seems unnecessary. Sometimes you may not want to run the complete chained pro- 
( gram. The CHAIN statement has some options that may be used. The statement: 


CHAIN: “oMTCRO! U “BUNT! 3 


will chain the complete program, “MICRO”, but will execute it starting from the la- 
bel, “PUNT”. In this case, only line 30 would be executed and the display would show 
only: 


AND WORKS 


You can also use a line number instead of a label. The statement: 


CHAIN ''MICRO'' ,20 


would chain the program, “MICRO”, and begin execution at line 20. In this case the 
display would show: 


AND WORKS from line 20 


Press ENTER 


AND WORKS from line 30 
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Three Links Problem 


Here are three short programs that have been saved on cassette with the names 
“ABBA”, “DABBA”, and “DOO”. 


19 ''ABBA'! 
29 PAUSE ''ABBA'' 
39 CHAIN ''DABBA'! 


19 ''DABBA'! 
29 PAUSE ''DABBA'! 
3Q CHAIN ''DOO'' 


19 ''poo'! 


29 PAUSE ''DOO'' 
3Q CHAIN ''ABBA'' 


The programs are recorded on the cassette in this order: 


3rd 2nd 1st 


“DOO@r “DABBA” “ABBA” 


iapsimovement 


The tape has been rewound to the beginning and is ready to play. 


a. Describe what happens if you load and run the program “ABBA”. 


The tape is rewound and ready to play again. 


b. Describe what happens if you load and run the program “DABBA”. 


The tape is once again rewound and ready to play. 


c. Describe what happens if you load the program “DOO”. 
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Solution to Three Links Problem 


a. When you load and run the program “ABBA”, it prints: 


ABBA 
DABBA 


“DOO” is then chained. It prints: 


i The cassette advances searching for “ABBA”. Alas, “ABBA” will never be 
( found since it is back in the other direction at the beginning of the tape. 


b. When you run the program “DABBA”, the cassette searches past the 
program “ABBA”. It finds “DABBA” which runs and prints: 


DABBA 


“DOO” is then chained. It prints: 


The cassette then moves, searching for “ABBA”. Of course, “ABBA” has al- 
ready gone by and can’t be found. 


c. When you run the program “DOO”, the cassette searches past “ABBA” 
and “DABBA” and finally finds “DOO”. It prints: 


and then attempts to chain “ABBA”. “ABBA” cannot be found since it is back 
in the other direction. 
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Precautions When Using CHAIN 


In Chapter 3 you found out that when a program was loaded from tape with the com- > 
mand CLOAD, any programs in the computer’s internal memory were erased. The , 
same thing happens when the CHAIN statement is used. The program, originally in 
memory, that uses the CHAIN statement is erased when the new program is read in 
from the cassette. You cannot return from the chained program to the original pro- >) 
gram. The purpose of the CHAIN command is to allow you to use programs too big to > 
fit in the internal memory. When the second part is CHAINed, the first part must be 
erased to make room for the second part. 


Using Variables in Chained Programs 


values for the variables used in the original program are still in memory. Remember 
how memory is used? The program is stored from one end while values for variables _/ 
\ are stored from the other 


TUTTI TUITE 


Variables ——>> <@— Program 


Even though the original program is erased when a second program is chained in, the / TANTS 
ae ea Ee Tee rTM PORTA T 


(~ As long as the chained program is not so big as to overlap the area used for the varia- 


(bles, the values for the variables will still be there. 


Original Program # 
5 erased 
The same variables 


Wu —__—_—_ |, Chained program ______,| 
Unused entered 
Memory 


The CHAIN statement is similar to the CLOAD statement, with these 
important differences: 
1. The chained program is not only loaded but is also executed. 


2. Any old program is erased, but the values assigned by the old program 
remain in memory. 
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Sample Use of CHAIN Statement 


Here are two programs that demonstrate the use of the CHAIN statement with data 
transferred from the original program to the Chained Program. 


Original Program 


19 FOR X = 1 TO 5 
29 A(X) = X+19 

39 NEXT X 

4Q CHAIN ''NEXT!! 


Chained Program 
19 ''NEXT!! 
29 FOR X = 1705 
39 PRINT A(X) 
49 NEXT X 


Enter the Chained Program into the Pocket Computer’s memory. Connect the 
cassette recorder interface and the recorder. Rewind the tape and press the RECORD 
and PLAY buttons on the recorder. Then type: 


CSAVE ''NEXT!'! 


on the Pocket Computer and press the enter button. 
After the Chained Program has been recorded, rewind the tape to the beginning 
of the tape. Now type: 


NEW 


and enter the original program in the Pocket Computer’s memory. If you have re- 
wound the tape (if not do so now), press the PLAY button so that the recorder is ready 
to read in the Chained Program. Set the Pocket Computer to the RUN mode and run 
the original program. 

The original program is executed and the CHAIN statement at line 40 causes 
the Chained Program to be read in from the cassette recorder and executed. After this 
happens, the value for A(1) is seen on the display (caused by line 30 of the Chained 
Program). Press ENTER to see each of the five values A(1) through A(5). 
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As you can see, the values for the variables were passed on from the original pro- 
gram to the Chained Program. To see that the original program has been erased, ac- 
cess the PRO mode and list the program in memory. The Chained Program will be 
there, but the original program will be gone. 


Summing Up Chapter Eleven 


When programs are so long that you must use the CHAIN statement, be sure to plan 
the division of the long program carefully. If very much data are to be passed between 
the sections of the program, be sure there is room to include them in the first section 
and room for them to be saved for the second section. 

More than two sections may be chained, and the same precautions apply to each 
use of the CHAIN statement. With careful use, the CHAIN statement extends the 
power of the Pocket Computer far beyond the internal memory, making the execution 
of very long programs possible. 
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CHAPTER TWELVE 


The TRS-80 Pocket Computer Printer 


The Pocket Computer can pump numbers and letters out faster than you can write 
them down. In this chapter you'll learn how to use the TRS-80 printer to keep up with 
the flood of information and make a lasting impression of your work. You will learn; 


e how to set up the printer; 

e how to list your programs on the printer; 

e how the printer places numbers and letters on the page; 

e how to format numbers and letters on the page; 

e how to use the printer to graph functions; and 

e how to use the computer to store and print messages in the program area. 


Getting Started 


Unpack the printer. Is it blinking at you? The printer may have been packed with the 
switches on and the blinking light means that the battery is low. Turn the printer 
power switch off, and the blinking will stop. The printer has a nickel cadmium battery 
that can be recharged. (See Appendix E.) Plug the AC adaptor that was furnished 
with the printer into the receptacle on the back of the computer. Then plug the other 
end of the adaptor into a convenient wall outlet. The battery is now being fed. You 
may operate the printer while the battery adaptor (also used to charge the battery) is 
plugged into the wall socket. 

Next, turn the Power switch and the Print switch ON. Now press the button on 
the face of the printer that’s marked U1. That’s the paper advance button. If you have 
paper in the printer, it comes out. If there is no paper in it, read on. If you already have 
installed the paper, skip over this section. You may want to come back to it when it’s 
time to install a new roll of paper later on. 
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Installing Paper in Printer 


Look closely at the left edge of the front of the printer. Next to the paper slot you will 
see a round dot and the word PUSH. 


© Mmmm nnn 


PUSH 


Give the dot a push and off comes the cover. Inside you can see the ribbon cartridge. 
It’s shaped like this: 


Sometime you may need to pop that out. Right now though, focus on the clear plastic 
cover at the top of the printer above the paper cover that you just removed. Lift the 
front edge of this cover and it will rotate on hinges toward the back of the printer. In- 
side the space that is revealed, the paper roll fits. Open one of those small paper rolls. 
The end of the roll may be a bit ragged by the time that you get the roll open. Cut the 
ragged end of the paper off with scissors. This will make the paper go in easily without 
any snags. 

The paper enters the printer through the slot of the compartment used to hold 
the paper roll. Slide the paper into the slot and, at the same time, push the paper ad- 
vance button O.. Out comes the paper, toward the front of the printer. You should hold 
the button down until about one-half inch of paper feeds through. Next rotate the pa- 
per compartment cover back over the roll of paper. Slip the ribbon cover over the pro- 
truding one-half inch of paper. The paper goes through the slot with the jagged edge. 
Now snap the ribbon cover back into place and everything is ready. 


Attaching the Computer 


Directions for attaching the computer to the printer can be found on the printer itself. 


—_ 


Turn the printer power and the Pocket Computer off. 

2. The bump at the upper right-hand corner of the printer interface fits 
neatly into a corresponding slot on the bottom of the computer. First, fit 
the bump into the slot; then slide the computer to the left, onto the 
connector prongs. 

It’s as simple as that. No need to force anything. Try putting the computer in and out a 
few times to be sure that you have the knack of it. 

Now that the interface is connected, you can turn the printer Power switch ON. 
Also, turn on the Print switch. Last of all, turn on the Pocket Computer. In fact, push 
the computer ON button twice. The first push turns the computer on. The second push 
tells the computer that the printer is attached. 
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Listing a Program 
Use the MODE key (of the computer) to put the computer into the PRO mode. Then 
type in this line. 


19 PRINT ''WORKS'' 


Press the ENTER key and then type LIST. (Press the ENTER key again.) The 
printer leaps into action and lists the one-line program: 


19:PRINT ''WORKS : 
mm The ending quote appears on 


the second line. 


In other words, when the computer is in the PRO mode, the LIST command will send 
the listing of the program to the printer. 


Printing from a Program 


Now press the MODE key several times to put the computer into the RUN mode. 
Type RUN and press the ENTER key. The printer will print: 


| WORKS | 


The program ends and the computer stops. Notice that the characters in the word 
WORKS were printed at the left side of the paper. Now let’s go back and add another 
line to the program. Put the computer back into the PRO mode and add this line to the 
program. 


29 GOTO 1B 
When you have entered line 20, type LIST to print the two-line program on the 


printer. 


Display Printer 


LIST 


1Q:PRINT ''Works 
Hed 


29:GOTO 19 
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Now run the program by putting the computer into the RUN mode and typing 
RUN. 


When you’ve seen enough, press the computer’s ON button to break the program. 

The PRINT command works differently now that the printer is attached and 
turned on. The computer does not stop after each PRINT statement as it did without 
the printer. You don’t need to press ENTER to tell the computer that you are ready to 
go on. The computer keeps on working when the printer is functioning in place of the } 
display. 

You saw how the printer printed the string “WORKS” on the left side of the pa- 
per. Let’s try a string of numbers now. Put the computer in the PRO mode and change 


line 10 to: 


19 PRINT''12345678991234567'' ~«————_ It’s still a string 
because of the quotes. 


Use the MODE key to get into the RUN mode and run the program. 


a. How many characters will the printer put on one line? 


a. The printer prints: 


1234567899123456 
7 
1234567899123456 


7 Press the ON button of the 
So eee computer to break the program. 


A printer line holds exactly 16 characters. The 17th character wraps around to 


the next line. 
Now, let’s try a shorter number that is not enclosed in quotes to see whether the 


printer treats strings and numerics alike. Change line 10 to: 


1G PRINT 1 
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a. Ifyou run the program now, on what part of a line will the printer print 
the number one? 


The printer prints numbers on the right side of the page like this: 


AAA MIP 


You can easily print tables for special functions using your printer. Here is a pro- 
gram that prints out the squares of numbers: 


The Program as Listed The RUN Printout 
on the Printer 


1Q:FOR X=1T0 19 
20:Y=X*X 
3@:PRINT Y 
4Q:NEXT X 


a. Ifyou use the same program with the exception of line 10, which is 
changed to: 


zoM Y¥ = Vx 


what will the printout of the run look like: ? 


a. The numbers are printed at the right side of the page, but now there is an 
occasional decimal point. The printout looks like this: 


Te 
1.414213562 
7329592898 
Ts 

. 236967977 


- 449489743 
2645/5131 
- 828427125 


Bie 
3.16227766 
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Formatting Data for Printing 


The numbers are a bit difficult to read in the previous jagged format. Let’s see if we 
can tidy up the line of numbers by using the USING statement discussed in Chapters 
2 and 7. Add: 


5 USING ''##.####'' 


By listing the modified program we see: 


:USING ''##.## 
H#H''! 
:FOR X=1TO 19 


:Y=\/X 
:PRINT Y 
:NEXT X 


a. Now what happens when you RUN this program? Look at the printout of 
the previous program and show how line 5 changes the format of the 
printout. 


a. The USING statement formats the number. The printout now looks like 
this: 


1 

fis 
ike 
22 
Ze 
2s 
poe. 
a 
a 
a 


There is a way to place the numbers closer to the left side of the page. Change 


line 30 to: 
3Q PRINT '! is ee 
no space between quotes 
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The printer puts strings at the left side of the paper. Even the string ''' ' that has 
nothing in it starts on the left. The printer prints nothing, and then packs the number 
right up against it at the left edge. The printout looks like this: 


1 
ats 
| bic 
2s 
Zs 
PAG 
ae 
Pe 
3% 
35 


To space the numbers five positions to the right of the left side of the paper change line 
30 to: 


39 PRINT '' '';yY 
four spaces between quotes 


Here is the difference in spacing: 


~——— one space over with the empty 
string '''' 


WWNNNNN = = = 


~——— five spaces over with the empty 
string '' |, = 


WWNNNNDND = = = 


You can also put two values on the same line. Change line 30 to: 


3% PRINT X Y 
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Now X and Y will be printed on the same line when the program is run, like this: 


Printer Display 


ile 
De 
36 
4. 
Bis 
6. 
Ws 
8. 
Or 


WNNNNDND = = = 


Only nine pairs of values were printed. What happened to the tenth pair? Notice 
the computer display as the run stopped. It shows an error at line 30. It is error code 
number 6, showing an error in format. Although the ustnc ''##.####'' statement 
on line 5 reserves two positions to the left of the decimal point, the left-most position is 
saved for the sign of the number (plus or minus). If the sign of a value is positive, it is 
not printed. However, the USING statement saves a place for it just the same. There- 
fore, when X = 10, there is no room for the sign and two digits. The computer stops 


and gives the error message. To correct this, change line 5 to: 


5 USING ''###.####'' 


Now, RUN the program and all ten pairs of X,Y values will be printed. 


With usinc ''##.####'' With usinc ''###.####'' 
Ts 1 1.9999 1.9999 
Ne 1 2.9908 1.4142 
3. ike 3.9999 1.7329 
4. Ze 4.9299 2.9999 
5. De 5.999 2.2369 
6. De 6.9999 2.4494 
Te De: 7.9999 2.6457 
8. oe 8.9990 2.8284 
9. 3 9.999B 3.9999 
19.9990 3.1622 
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If you remove the USING statement at line 5, you get a very hard-to-read out- 
put. The numbers are packed together like this: 


-414213562 
- 732959898 


- 236967977 
- 449489743 
~6457513:11 
- 828427125 


WNNNNN | = = 


@.3.16227766 


To get better spacing, you can put in an empty string. Change line 30 to: 


39 PRINT X;'! Ae eee ss three blanks 


i 


a. Show how this change would effect the output. 


- 414213562 


. 732959898 


- 236967977 
- 449489743 
-645751311 
- 828427125 


SOON AUFWDN = 
WWNHNNNDND = = = 


+ F6227766 


Here is another variation that provides a very neat and readable printed output. 


change: 39 PRINT ''X= '';x 
add 32 PRINT ''y= '1';y 
add: 34 “PRINT Vth «———___———  Printsa blankline 


A listing of our program is now: 


19:FOR X=1TO 19 

29:Y=\/x 

BARRON LUX Ne 
4 

32:PRINT '*y= '"; 
6 

BAL-PRIENTA IW 1 itt 

4Q:NEXT X 
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The output looks like this: 


- 414213562 


_732959898 


- 236967977 
449489743 
(645751311 
"828427125 


19. 
3. 16227766 


How to Store Messages 
The Pocket Computer can be used to store long messages. You don’t need to write an 
executable program to do it. It is REMarkably simple. Try this: 


Put the computer in the PRO mode. Type NEW to clear the program memory. 
Now type this line and enter it. 


1 ''SEND LISTS TO MEMORY 


Now list the program. There are no surprises. You see the program line that you put 
in, with the addition of a colon following the line number. 


1:''SEND LISTS TO MEMORY 


The quote mark tells the computer not to interpret the sentence. It works just like a 
REM statement. 
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What is the maximum length for a message on a program line? Give this a try. 
Type: 


1. "'123'456789912345678 2: - 25 2% 


Keep going until the computer won’t hold any more characters on the display. 
a. How many characters can be stored on one program line? 


a. You have probably noticed that the computer leaves a space at the left 
side of the page when you list a program. The computer saves the first 
three spaces for the line number. The colon comes next, then the program 
lines. One program line holds (or stores) 80 characters, if you count the 
line number, the colon, the quote mark, and all the characters typed in 
following the quote. 

The length of a line displayed on the computer and the length of a printed line 
are quite different. Here are some examples of stored messages printed by the follow- 
ing method: 


1. Type in the line numbers and messages. 
2. When all are typed in, type the command LIST and press the ENTER 
key. 


1:''12345678981 
234567899123 
456789912345 
678991234567 
899123456789 
912345678981 
23456 

2:''THE TRS-80 
POCKET COMPU 
TER IS DESIG 
NED TO HOLD 


MESSAGES IN The Pocket Computer 
RHE gE ROckey can store long lines 
MEMORY 


3:''THE STANDAR of text. 


D KEYBOARD M 
AKES TYPING 
FAST AND EAS 
Y. 

4:''THE INSERT 
AND DELETE K 
EYS ALLOW YO 
U TO EDIT LI 
NES BEFOR ST 
ORING OR TYP 
ING. 

5:''PTHE POCKET 
COMPUTER CAN 
EASILY STOR 
E A FULL, DO 
UBLE SPACED, 
PAGE. 
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Graphing with the Printer 


The TRS-80 printer can be used to do simple graphing. The graphic area is 16 units 
wide and as long as your paper tape. 


Here is a program that allows you to print a specified number of asterisks [*] on 
a line. The program takes the number of asterisks that you want printed as input and 
then prints them. We'll use this later in other graphing programs, so you may want to 
save the program with your cassette recorder. 


18 INPUT Y:GOSUB ''GRAPH'':GOTO 19 ~<¢—————— to input data 


298 ''GRAPH'' 

21% REM CHECK SIZE OF INPUT 

229 IF Y<@ LET Y=9 

230.0 Ye16. LET y= 7 

249 GOSUB 399+Y <———_ pick the right number 


258 RETURN of asterisks 


392 PRINT ''<'':RETURN 

391 PRINT ''*'!':RETURN 

302. PRINT ise PRE URN 

393 PRINT '!'***"": RETURN 

394 PRINT ''!****'': RETURN 

395 PRINT ''*****'': RETURN 

396 PRINT ''******e'' > RETURN 

397 PRINT ''!******x*'1' > RETURN 

378 PRINT "' *k*4e4*e4e1 s RETURN 

309 PRINT lak eke eee RETURN 

319 PRINT ''**#*4%444%%%') > RETURN 

311 PRINT ''**e*4%4%%%%7 t: RETURN 

312 PRIND Sex k* REXEEAEATI ST RETURN 

313 PRINT !'!*kekeexeKKKKK! ' SRETURN 
314 PRINT !'*xxexkeeKAKKEX' TY SRETURN 
315 PRINT ''%*k eee KKKKKKKEKK!' >RETURN 
316 PRINT ''%*#**keKeKKKeKKXK'!' > RETURN 
BUN ome Rela eos EY a alo eee epee ana ere 2 RETURN 
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We used these inputs with the graph program to produce a graph of some stock 
market prices: 


Ie 2S cA ee Sterne 1 SIS: 255. (Onaoe 


fm 
So 


14, 16, 13, 12 


KKK 

kkk KK 

Kak KKkKK 
KKKK KK KEK 
KKKK KKK KK KKK 
KaeKKKR KKK KKK 
KKK KK KKK 

kkk K* 

kKaKKKKK 

KKK KKK KK 
kKkkKKKK 
es 
KKK KKK KKK KK KK 
KkKKKK KKK KK KKK KEK 
KKKKKKK KKK KKK 
KaKKKKK KKK KKK 


You probably have some numbers of your own that need graphing. Give them a try. 


Graphs of Functions 


You can easily change the previous program to plot graphs of functions. Here is a pro- 
gram that uses the graph subroutine to graph the function Y = SIN(X). 


19 DEG. 
29 FOR X = @ TO 369 STEP 18 
39 Y = SIN(X) ie 
49 Y = INT(7*Y+8.5) ————————— This line scales the number 
SP) GOSUBY GRAPH to fit the printer. 
69 NEXT X 
79 END 
299 ''GRAPH'! 
: <__H+—_ Insert the previous “GRAPH” 


subroutine here. 


The “GRAPH” subroutine (lines 200 through 317) is used just as it was before. 
Here’s how the plot looks. 


kK * 
x kK *® kK x 
ke eK kK * 
KK RK KK kK 
KKK KK kK x 
KK K KK KK K x 
KK K KK KK kK x 
KK KK KK KK KX * 
KKK KK KK K KK * 
KK K KK KK KK KK * * 
KK KK KK KK KK KX x * 
KOK RK KK KK KK KK K x kk * 
KKK KK KK KK KK KK * x * 
KOK KX KX KK KK KK KK OK x kK kK * 
BOK RK KK KK KR KEK KK KK KK &K KK 
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A graph of the function Y = LOG(X) can be made by making these changes to the 
graph of Y = SIN(X). 


29 FOR X = 1 TO 39 
3G Y = LOG(X) ier 
4g Y = INT(19*Y+.5) ———_——_ This line scales the numbers to 


fit the printer paper. 


Here is how the LOG plot looks: 


KkKKK 

eR a ke: 

kkk k KKK 

Sense de ok, se ae, ae 
KaKKKKKK 
Kk K KK KKK 
KKKKKKKKKK 

Kak KKKKKKK 

Beir de ie veithe He fee: 
KKKKKKKKKKK 
Kak KKK KR KKK 
KKK KK KK KK 
kkk KK KKK KK KK 
KKKKKKKKK KKK 
kkk KKK KKK KKK 

Bie ete, he Ree oie deri ee Se ea: 
KKK KK KKK KK KR KK 
Kak KKK KKK KK KEK 
KKKKKKKKKK KKK 
kk kk kK kkk kk 
KaKKKK KKK KKK KKK 
KaKKK KKK KKK KKK 
KKKKKKKKKKKKEKE 
ie Se Ke le dees Ree tee te ae: Behe, 
KaKKK KKK KKK KKK 
KKKKKKKKKKKKKK 
KKKKKKKKKK KKK KK 
Ka KKKK KKK KKK KKK 


Try some functions of your own. Here are a few to start with. Each function may 
need its own scaling values in line 40. 


29 FOR X = -19 TO 19 
3G Y = X*X 
48 Y = INT(Y/199+.5) 


29 FOR X = @ TO 29 
38 Y = EXP(—X) 


49 Y = INT(Y*16+.5) 
29 FOR X = —12 TO 12 
30 Y = EXP(—X*X/4) 


49 Y = INT(Y*16+.5) 


Random Walk 


By changing sections and adding sections to the previous program, a wide variety of 
simulations may be made. Let’s examine a program that simulates a game where a 
gambler starts with five pennies. The gambler adds | to her total if the coin comes up 
heads, and subtracts 1 if the coin comes up tails. The coin is simulated by generating 
1’s and —1’s randomly by the techniques of Chapter 8. The gambler’s total on each 
play of the game is graphed on the printer. Make these changes and additions to the 
previous program. 
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19 PRINT ''INPUT A NUMBER'' 
29 INPUT Ro —————__________ This starts the random number 


39 Y=5 generator “COIN”. 


4 UsiWela) of 
af oo ae i, Fae ee ee get a random C (1 or —1) 


69 IF Y<1 PRINT ' BUSTED’ TEND accumulate the total (Y) 
78 IF Y>16 PRINT ''BANK BROKEN'':END 

88 GOSUB ''GRAPH'' 

98 GoTO 49 


29@ ''GRAPH'! 


(insert the subroutine “GRAPH” here) 


599 ''COIN'! 
51% REM GENERATE RANDOM 1, —1 
529 R = 221*R+2113 

539 R = R-INT(R/19999)* 19999 
549 Cc SGN(R—-5@QQ) 

55@ RETURN 


add this section 


Wee 


If this program is RUN with the printer, the output will present a nice graph. 
Here is a sample printed output. Yours will look quite different, of course, since the 
numbers are chosen randomly by the program. We turned the paper 90 degrees to 
present the data in a more understandable format. 


INPUT A NUMBER 


kKkKK 
KKK 
kkk KK 
kkk KKRK 
kk KKK 
kkk 
KKK 
kKkKKKKK 
KkKKKK 
kK 
KKKKK 
kkk 
KKKKKKK 
KKKKKK 
kKkkKKK 
i ee eee 
kKkKkKKK 
kK K 
kkk 

k* 

kkk 
kKaeKK 
KkKKK 
KaeKK 
kKkkKKK 
kKaKKK 
kK 


Because of the randomness of the numbers, it is difficult to predict the final result. 
Who knows if the gambler or the bank will go broke first? 


Frequency Distribution 


One of the most useful tools used by true lovers of statistics is the frequency distribu- 
tion, or histogram. Here is an example. Suppose you have a mountain of numbers. It 
might be the check amounts in your check book; it might be the running times for your 
favorite horses; it might be the grades in a class, or weights, or ages, or just about any- 
thing. 

One of the most interesting and simple things that you can do is to sort the num- 
bers by size. Let’s sort some numbers. Here they are: 


SD 5a 3571S, HOD Oils 9 p2 OOD On Oo Osa ola Oe 
14 2675099; -56,- 32, 83, 12 
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Sorted into columns, the numbers look like this: 


OL 55 10 


15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 100 


If you replace the numbers with asterisks, the chart looks like this: 


OF 53510 


16 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 100 


This chart is called a frequency distribution or histogram. 

Histogram programs have many uses and are fairly easy to write. You can 
change the “GRAPH” subroutine program to get a histogram maker. The program 
takes numbers 0 through 100 as input. The number —1 (when input) signals the com- 
puter that you have typed in all your entries and are ready to graph. The computer 
then sorts the numbers by size, in intervals of length 5. Finally, it graphs the histogram 


on the printer. 


19 
29 
39 
49 
5g 
69 


79 
8B 


99 
1B9 


119 
129 


139 
149 
159 
169 
179 
189 
199 
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CLEAR 

ISU STO 

INPUT Z 

Le Zo=— — i) THEN ePLon 

IF Z < —1 PRINT ''WHAT?'':GOTO ''HISTO!' 


IF Z > 19@ PRINT ''WHAT?'':GOTO ''HISTO'' 


REM FIND THE BOX (W) 
W = 39+INT(Z/5) 


REM ADD 1 TO THE BOX 
A(W) = A(W)+1 


REM GO GET ANOTHER 2 
GOTO "HISTO?" 


11pLor's 

REM SEND NUMBERS TO PLOTTER 
FOR Z = 39 TO 58 

Y = A(Z) 

GOSUB ''GRAPH'' 

NEXT Z 

END 


VUGRAPHY! 


Once again, the “GRAPH” 
subroutine goes here. 
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You might find it instructive to use this program on the numbers in your check 
book. Here are the numbers that we put in, and the frequency distribution plotted by 
the program. 


Inputs: ~82, 73). 7872 165,.. 81;5-"79,, 75, 
6255 165.852 591 18. 7456-67, 
OL ES heme teat A 


Frequency Distribution 


Vertically Horizontally 


< 
< 
* 
<= 
<a 
<a 
* 
< 
<< 
< 
< 
* 
* 


VEN 5 VV, VEE VAIN, eee 


Getting the Computer Display Back 


You will occasionally want to display the results of your computations on the com- 
puter display rather than printing the results on the printer. 
Put this short program in the computer to use as an example: 


1 PRINT ''GOOD'":GOTO 1 


When you run this program with the printer on, the word GOOD is repeatedly typed 
by the printer. To turn the printer off and get back to the display, do this: 


1. Slide the PRINT switch to OFF. 

2. Press the computer’s ON button twice. This tells the computer that the 
printer’s status has changed. Now the computer’s output will go to the 
computer’s display window. 
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a. RUN the program again and describe what happens. 


a. The printer sits quietly. The word GOOD appears in the display window, 
and the computer stops. 
When you are ready to print your results again, do this: 


1. Slide the PRINT switch ON. 
2. Press the computer’s ON button twice. 


a. RUN the program again and describe what happens. 


a. The printer roars to life and repeatedly prints the word GOOD. 


Using the Cassette Recorder 


The TRS-80 Printer Interface can also transfer signals to the cassette recorder. The 
recorder is easy to hook up to the interface. The cable that comes with the printer has 
three plugs on each end. The directions are the sanie for each end of the cable (see Ap- 
pendix E) 


1. Black plug into the REM jack 
2. Red plug into the MIC jack 
3. Grey plug into the EAR jack 
The easy way to remember this is, RED IS IN THE MIDDLE. 
To use the cassette recorder with the interface: 


1. Slide the Printer Power switch to ON. 
2. Slide the Printer REMOTE switch to ON. 

Now the interface is ready. Take a look at Chapters 3 and 4 for a detailed discus- 
sion of the use of the cassette recorder with the CSAVE, eronD, PRINT#, and IN- 
PUT# commands. 

< “8 AO? 
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Summing Up Chapter Twelve 


The printer is a powerful addition to the TRS-80 Pocket Computer. It is necessary for 
the computer to stop after each PRINT statement when no printer is attached so that 
you can see the results of a program. With the printer addition, your program can 
speed right along, printing each result as it goes. You can then keep a permanent rec- 
ord of results, data, and your programs. In this chapter you learned: 


how to set up the printer; 

how to LIST programs on the printer; 

how to use the PRINT command to print the output of programs on the 
printer; 

that the printer page holds 16 characters per line; 

that numbers print on the right side of the page and strings start on the left 
side; 

how to make numbers print where you want them to appear on the page; 
how to print numbers and characters together; 

how to store long messages in program memory; 

that the quote mark works like a REM statement; 

how to graph functions and make histograms; 

how to transfer from printer to display and back again; and 

how to hook up the cassette recorder. 


Conclusion 


The more you use your TRS-80 Pocket Computer, the more uses you will find for it. 
We hope this introduction will provide you with the background necessary for efficient 
use of the computer. If you have problems with it, or if you come up with some bril- 
liant ideas for its use, write the authors at: 


DYMAX 
P.O. Box 310 
Menlo Park, CA 94025 


BSS 
~~ 
) 


APPENDIX A 


BASIC Statements and Commands 


Note: Expressions enclosed in square brackets, [ ], are supplied by the user. [exp] 
stands for a mathematical expression, [char] stands for one or more alphanu- 


meric characters, and [list] stands for a list of variables. 


Statement Function Performed 


AREAD [variable] Assigns a value to a variable when 
used in the DEF mode. The value 
must be displayed before the execu- 
tion of the defined program. 


BEEP BEEP ([exp]) Generates as many beeps as specified 
by the expression in parentheses. 


CHAIN CHAIN “[file name]” Reads in and executes program re- 
corded on tape. 


CLEAR CLEAR Clears the data memories. 
CLOAD CLOAD “[file name]” | Loads a program from tape.{s<e ?¢2)}€ 64 


CLOAD? CLOAD? “‘[file name]” | Compares the program in memory 
with the one just saved on tape. 


CONT CONT ENTER Restarts an interrupted program at 
the place where the interruption oc- 
curred. 


CSAVE “(file name]” Records the program in memory onto 
tape. 


DEBUG ENTER Starts instruction. Line numbers are 
DEBUG [exp] ENTER | -listed as the program is executed. 
DEBUG [char] ENTER 
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DEGREE 


END 
FOR 


INPUT# 


LET 


DEGREE 


END 


FOR [variable] = 
[exp] TO [exp] 
STEP [exp] 


GOSUB [exp] 
GOSUB [char] 


GOTO [exp] 
GOTO [char] 


GRAD 


(See Radio Shack 
Software Manual 
for numerous forms) 


INPUT [list] 


INPUT# “[filename]” 


LET [variable] = 


[exp] 
LET [variable]= 
[char] 


LIST 
LIST [exp] 
LIST [char] 


MEM 


NEW 


NEXT [variable] 


Designates degrees as the unit for 
specifying angular measure. 


Indicates the end of a program. 


Begins a FOR-NEXT loop. The 
STEP is optional and defaults to one 
(1) if omitted. 


Shifts execution to the specified line 
[exp] or label [char] where a sub- 
routine begins. 


Shifts execution to the specified line 
[exp] or label [char]. 


Designates grads as the unit for spec- 
ifying angular measure. 


Based on the specified condition, a 
branch to a different part of a pro- 
gram is taken or not taken. 


Allows data to be input during pro- 
gram execution for one or more vari- 
ables. 


Records on tape data from data 
memories. 


Assigns a value to a variable. 


Lists the program currently in 
memory. 


Displays the number of program 
steps and flexible memories that have 
not been used. 


Clears all program and data 
memories. 


Ends a FOR-NEXT loop. Incre- 
ments the step. 
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PRINT# 
RADIAN 


REM 


RETURN 


RUN 


PAUSE [exp] 
PAUSE “[char]” 
(For other forms 

see the Radio Shack 
Software Manual.) 


PRINT [exp] 
PRINT “[char]” 
(For other forms 

see the Radio Shack 
Software Manual.) 


PRINT# “[filename]” 
RADIAN 


REM [char] 


RETURN 


RUN 
RUN [exp] 
RUN [char] 


(See FOR) 
STOP 


(Used in an IF 
statement - see 

Radio Shack Software 
Manual.) 


(Many forms - see 
Radio Shack Software 
Manual.) 


Displays an output for approximately 
0.85 seconds and then continues exe- 
cution of the program. 


Displays an output and halts execu- 
tion of the program until the 
ENTER key is pressed. 


Records data memories on tape. 


Designates radians as the unit for 
specifying angular measure. 


Designates a nonexecutable state- 
ment used to make remarks ina 
program. 


Returns from execution of a sub- 
routine. 


Starts the execution of a program. 


Increments a FOR-NEXT loop. 


Stops the execution of a program. 
The execution may be resumed by a 
CONT statement. 


Shifts execution to a new line as 
GOTO. Used only in an IF 
statement. 


Designates the format of the display 
of a PRINT or PAUSE statement. 
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APPENDIX B 


Special BASIC Functions 


BASIC Common Mathematical Designation 

Designation or Meaning 
absolute value 
arc Cos or cos! or inverse cosine 
arc sin or sin“! or inverse sine 
arc tan or tan“! or inverse tangent 
cos or cosine 
degree/minute/second conversion to decimal 
decimal conversion to degree/minute/second 
e* or exponential function or antilogarithm for LN 


integer 


log.X or Natural logarithm 


log,.X or Common logarithm 

sign (positive or negative) or signum 
sin or sine 

tan or tangent 


square root extraction 


APPENDIX C 


Acceptable Abbreviations for BASIC 
Statements, Commands, and 
Special Functions 


Statement, 
Command, or 
Function Acceptable Abbreviations 


CHAI. 
CLEA. 
CLOA. 
CLOA.? 
CON. 


CSAV. 
DEBU. 


DEGR. DEGRE. 
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PAUS. 

PRIN. 

PRIN.# 

RADI. RADIA. 


RETU. RETUR. 


APPENDIX D 


Error Codes 


Error Code Remarks 
Number 


Caused by: 


Grammatical (syntax) error — Check 
formats used in offending lines. 


Operational error — Absolute value of 
some number may be greater than 10' 
or a division by zero may have been at- 
tempted. 


Error in memory specification — May be 
a mismatch of string and numerical vari- 
ables and values assigned. 


Caused by: 


Line error — Check lines and labels spec- 
ified by GOTO, GOSUB, RUN, DE- 
BUG, or LIST statements. (The lines 
may not exist.) 


Caused by: 


Level error — Occurs when level exceeds 
four stages ina GOSUB or a FOR- 
NEXT; when you try to execute a RE- 
TURN without a previous GOSUB; or 
when you try to execute a NEXT with- 
out a previous FOR. 
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Caused by: 


Insufficient memory — More program 
steps may have been used than available 
program memories; More reserve pro- 
gram steps may have been used than 
available reserve memories; More di- 
mension memories may have been speci- 
fied for the remaining memory. 


Caused by: 


Control error of cassette tape — Occurs 
during the execution of tape control 
statements or 

commands. 


Caused by: 


Error in format — Occurs when a display 
of numerical data are not in the specified 
format for use ina PRINT or PAUSE 


statement. 


APPENDIX E 


Printer Terms 


Power — The printer is powered in one of two ways. A rechargeable Ni-Cad battery al- 
lows you to use the printer /cassette interface in places that lack normal AC 
power. An AC adapter is provided and may be used to power the interface where 
a wall outlet is available. 

Recharging the Battery — To recharge the Ni-Cad battery, turn the printer power 
switch OFF. Then connect the AC adapter to the interface and plug the other 
end of the AC adapter into a wall outlet. It takes about 15 hours to fully re- 
charge the battery. 


Connector Jacks 


Adapter Jack — This jack is used to recharge the batteries or to operate the printer / 
cassette interface from a wall outlet. (See the diagram below.) 

Cassette Jacks — The cassette connection cable plugs into the printer /cassette inter- 
face as shown in the diagram below. The other ends of the cable are plugged into 
a cassette recorder. 


black red 
remote microphone 
plug plug 
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Controls and Indicators 


All controls and indicators for the TRS-80 Pocket Computer printer /cassette in- 
terface are located in the lower left corner on the top of the interface and are clearly 
labeled. 

Power Switch — This switch applies power to the interface and must be set in the ON 
position when you wish to use the printer or the cassette recorder. 

Print Switch — To use the printer, both the Power Switch and the Print Switch must be 
in the ON positions. In addition, the computer must be in the print mode before 
the computer’s PRINT and LIST commands will activate the printer. If the 
Print or Power switch is OFF, the computer sends the results of PRINT and 
LIST commands to the LCD display instead of the printer. 

Remote Switch — This switch controls the cassette recorder when it is connected to the 
interface. When the Remote switch is ON, motion of the recorder is controlled 
by the computer. When it is OFF, the recorder is under the control of the recor- 
der’s buttons. 

Paper Feed Button — When the Paper Feed Button is pressed once, the printer’s paper 
advances one line. When the button is held down, the paper advances continu- 
ously. The Power switch must be on for the Paper Feed function to perform. 

Low Battery Indicator — This indicator will blink when the battery becomes too weak 
to operate the printer. At this time, input and output to the cassette recorder and 
output to the printer are disabled. 


Sar TeRY. 4 REMOTE PRINT POWER 
(@) & ON ON ON 
: 
OFF OFF OFF 


RADIO SHACK PRINTER 
CASSETTE INTERFACE 


Ba Wt Bie \ 


When light Paper Cassette Printer Interface 

on battery feed remote ON/OFF ON/OFF 
is low control switch switch 

and needs switch 

recharging 


Print Mode — This mode sends PRINT and LIST results to the printer rather than the 
display. To enter the print mode, first turn ON the Print and Power switches. 
Then press the computer’s ON key twice. 

Display Mode — This mode is used to send PRINT and LIST results to the LCD dis- 
play. To return to the display mode after using the print mode, turn the Print 
switch OFF and press the computer’s ON key twice. 


Computer Commands Used With the Printer 


LIST — This command prints a listing of the current program in memory. The printer 
must be in the print mode, and the computer in the PRO operating mode. 

PRINT — This statement is used inside a program line to direct program data to the 
printer rather than the LCD display. A PRINT statement followed by a single 
space within quotation marks produces a paper advance of one line. 


Index 


absolute value 4, 5,68 

AC adaptor 224 

accuracy 17 

AND function 135, 144 

angle measurement systems 97-99 
angle-side relationships 97 
angular conversion 4 
application examples 26 

Arccos 5,99, 116,117,121 
Arcsin 5,99, 121 

Arctan 5,99,101,121 

AREAD statement 6, 38, 40, 46 
areas of triangles 111-115 
arithmetic operations 4 

arrays 4,5,40-46, 47 


BASIC commands 5, 6, 21 

BASIC functions and statements 5, 6, 22 

BASIC language 4 

BASIC line 3 

BASIC tape control statements 6, 62-63, 66, 
68s 7d, 2p oeloe2 

battery recharge, printer 224 

BEEP statement 6, 43,46, 128-131, 151 

binary carry 138-141 

binary digit 136-137 

binary numbers 136-143 

bit 26 

break a program 20 

bubble sort 211-212 


calculator capabilities 1 

calculator mode 100 

cassette-printer interface 4 

cassette recorder use 4, 61-64, 75-93 
chaining a program 216-223 

chain precautions 221 

CHAIN statement 6, 216-217, 221, 222-223 
charging battery, printer 224 
circumference of a circle 102-104 
CLEAR command 6, 77, 88 

clearing an error code 13, 23 


clearing program steps (see NEW) ) 

CLOAD command 6, 62-63, 66, 68,221 \ CLA 

coin tossing 237-238 . 

colon 8-11, 58 

compound interest 183-185 

computer printer commands 221, 227 

CONTinue command 6, 20 

continuous interest 190-192 

control error 60, 69 

cosine 5,97, 99, 100, 109, 110, 114, 116, 117, 
121 

CSAVE command 6, 62, 68, 75, 217, 222 

cursor 2, 3,4, 10 

cursor control 4, 54-60, 69 


data files, how recorded 75-93 
data memory 4,5, 20, 27-29 
DEBUG command 6, 18-19, 23 
definable keys 7, 23, 47 
DEFinable mode 7, 23, 47 

degree 5,6, 97, 98, 117-118, 122 
deleting characters 3,57, 60,69 
display 2-3,5,7, 8,9, 13,15, 17, 22, 240 
display mode 240 

display size 2-3 

down arrow key 13-14 


editing functions 4, 54-60, 69 

END statement 6, 11 

ENTER key 2, 3, 8, 9,12, 13, 23, 223, 226, 
234 

error codes 11, 13, 23, 52-60, 69, 231 

error message 11 

EXP key 69, 191-192 

exponential function 4, 5 


fixed memories 3, 4, 5, 20, 22, 86, 130 

flexible memories 3, 4, 20, 22, 86 

FOR-NEXT loop 6, 18, 20, 40, 77, 129-131, 
139, 140, 179-180, 206, 210 

frequency distribution 238-240 (see also 
histogram) 
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free memory 4-5 
future value 194-198 


GOSUB statement 6, 68 
Grads 6,98, 122 
graphing, printer 235-240 


histogram 177-180, 239 


IF-THEN statement 56, 69 

INPUT prompt 14 

INPUT statement 6, 30, 47 
INPUT # statement 6, 76, 88 
inserting characters 3, 57, 60, 69 
insufficient memory error 56, 60, 69 
INTeger function 4,5, 68 

interface for printer/recorder 4 
interface for recorder 4 

inverse trigonometric functions 4 


keyboard 3,4,9 
keyboard templates 4 
keys 3 


label 4, 43 

law of cosines 110,112, 116,122 
law of sines 110, 114, 122 

LET statement 6 

level error 60, 69 

line number 10,11, 218 

lines 4,8 

liquid crystal display 2 

LIST command 6, 13, 23 

LIST command, printer 226, 234 
load data from tape 76-78 

load programs from tape 62-63, 216-223 
logarithms 4, 237 

logic functions 4, 5 


MEM command 5, 6, 20, 23, 29 

memory 3, 4, 20, 22, 26-32, 40-42, 47 
memory error 56, 60, 69 

memory map 27-28 

memory use 80-81, 87, 200-215 
merging lists 213-215 

merging programs from tape 216-223 
MODE key 7, 8, 12,13, 14, 23, 226, 227 
modes of operation 5, 7-20 
multiplication sign 18 


NEW command 6, 16, 23, 217, 222, 233 
NEWTON’S SIN 118-119 

NOT function 135, 144 

numeric variables 4, 22, 29 


ON key 20, 225, 240 


operational error 56, 69 
ordering numbers 202-213 
OR function 135-136, 144 


paper, printer 225 

PAUSE error 60, 69 

PAUSE statement 6, 14-15, 219 

payment size 188-189 

pikey 17 

power key 30 

power to printer 224-225 

power switch, printer 224, 225 

present value 193-198 

printer 4 

printer cassette interface 4, 241 

printer connection jacks 241 

printer graphing 235-240 

printer interface 225 

printer lin 6 

printer LIST statement 226, 234 

printer paper 225 

printer power 224 

printer power switch 224 

printer PRINT statement 227 

PRINT error 60, 69 

PRINT statement 6, 15, 23, 75 

PRINT statement for printer 227 

PRINT # statement 6, 12, 13, 85, 88 

print switch 224 

PRINT data to printer 227 

program lines 8, 10, 23 

programming mode 7, 8-11, 13, 14, 23, 223, 
226, 227, 229, 233 

program steps 5, 20, 22, 27-29, 31-34, 47 


radians 6, 97, 98, 102-104, 118, 122 
random number generator 61-68, 162-182 
random tests 164-165 

teady prompt 12-13 

recording data files on tape 80 
REMark statement 6, 233 
repayment time 189-190 

reserve memories 7, 23 

RESERVE program mode 7, 23 
RETURN statement 6, 60, 68 

right triangles 97-122 

RUN command 6, 11 

RUN mode 7, 23, 223, 226, 227 


save data on tape 80 

save programs on tape 62-63, 66, 68 
searching for variables (time) 128-132 
semicolon 58 

shifting one line 4 

shifting order of numbers 202-213 
SHIFT key 9, 23 


sign function 4,5 

sign subroutine 167 

sine 5,97, 99, 110-111, 112, 114-115, 118- 
119, 121, 236-237 

Software Manual 1, 61,62, 75 

sorting by ennumeration 213 

sorting by exchange 211-212 

sorting by insertion 208-210 

sorting by selection 212-213 

square root 4 

square wave 120-121 

stock dividends 195 

storing messages 233-234 

storing numbers 200-204 

string of characters 4 

string symbol 4 

string variables 4,22, 29 

sub-programs (subroutines) 52-54, 61-63, 
66 


INDEX 255 


subscripted variables 29 
surface area of acylinder 36-40 
syntax error 56, 58, 69 


tangent 5, 97,99, 100, 105, 106-107, 109, 
121 

tape control statements 5,6 

time payment 184-190 

timing program 133, 143,151 

triangles, area 111-115 

trigonometric functions 4, 96-122 


USING statement 6, 44-45, 46 
USING statement with printer 229, 231- 
232 


variables 40-42, 47, 58, 61, 129-131, 143 
variables in a chained program 221 
volume of a cylinder 29-40 
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PROBLEM-SOLVING ON THE TRS-80™ 
POCKET COMPUTER 


The ultimate in “micro” computing, the new TRS-80™ 
Pocket Computer is small enough to tuck into your 
pocket—yet gives more sophisticated computing than 
the most advanced programmable calculators. 


Now, in the first book ever to teach problem- 
solving techniques using the Pocket Computer, two ex- 
perts show you how to solve virtually any problem with 
this extraordinarily versatile computing tool, giving you 
mastery of a wide range of educational and practical 
applications. The book’s self-paced format lets you 
learn at your own speed —all you need is a familiarity 
with the BASIC language and a TRS-80™ Computer in 
your pocket. 


First, problem-posing and problem-solving exer- 
cises teach you the “nuts and bolts” of working with the 
Pocket Computer—the machine’s own form of BASIC, 
its keyboard, and its special features. You'll then learn 
how to use the Pocket Computer as a practical tool in 
many areas ranging from logic functions to storing, 
sorting, and searching to randomization and more. 


Scores of lively, interesting problems are pre- 
sented with graded hints that encourage you to develop 
your own solutions. This volume has been carefully de- 
signed to facilitate your learning and includes a wealth 
of illustrations and diagrams. 


Don Inman is an executive with Dymax Corpora- 
tion in Menlo Park, California. He is co-author of the 
best-selling guides TRS-80™ Level Il BASIC and 
TRS-80™ Advanced Level Il BASIC. 


Jim Conlan is a Professor of Mathematics at Menlo 
College in Menlo Park. 
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